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Voorwoord 


In vele opzichten is de computer een ideale tegenstan- 
der in spelletjes. 

De computer kan niet opscheppen over overwinningen, 
is galant bij verlies, onvermoeibaar, geduldig en altijd 
beschikbaar. Hoewel de computer niet het menselijke 
tegenspel kan bieden dat spelletjes vaak zo leuk maakt, 
hij is toch de perfecte partner om uren lang mee door 
te brengen. 

Waarom u ook denkt uw Spectrum gekocht te hebben, 
ik weet zeker, dat u in ieder geval enige tijd op uw com¬ 
puter doorbrengt met het spelen van spelletjes. En dat 
is het punt waarop dit boek u van pas komt. In dit boek 
vindt u een grate verscheidenheid aan spelletjes, van 
bordspellen zoals SCHAKEN en DAMMEN, videospel- 
len zoals JOGGER en LEVEL-5, tot het grate adventure- 
spel, DE WRAAK VAN KASTEEL ANGST. We hebben 
gemikt op nuttige spelletjes die uw belangstelling lang 
vast kunnen houden, bovendien zijn er ook spelletjes 
die uw programma- en spel-ideeen bieden, die u bij uw 
eigen computerwerk weer kunt gebruiken. 

Om u te helpen in het gebruik van de programma’s 
hebben we twee dingen gedaan: ten eerste zijn alle pro¬ 
gramma’s in dit boek voor u ingetypt en uitgetest. Deze 
kant-en-klare programma’s vindt u op de bijgaande 
cassette. De programma’s op de cassette zijn volledig 
getest en klaar om gebruikt te worden. Ten tweede vindt 
u in het boek de listings van alle programma’s, en in de 
tekst worden de programma’s regel voor regel ver- 
klaard. Hierbij worden de ‘trucks’ van de programmeurs 
uitgelegd, en ook ziet u hier, hoe u deze technieken in 
uw eigen programma’s kunt gebruiken. Sommige pro¬ 
gramma’s bevatten ook aanwijzingen om het program¬ 
ma naar uw eigen inzicht te wijzigen, u kunt de program¬ 
ma’s dan naar wens aanpassen en verbeteren. 
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Het merendeel van de programma’s is geschreven door 
Tim Rogers, Paul Toland en Tim Hartnell. Tim Rogers 
en Paul zijn beiden studenten (Tim in Londen, Paul in 
Belfast), en zij verdienen een felicitatie voor de kwaliteit 
en originaliteit van hun werk, hetgeen weerslag vindt in 
de programma’s die voor dit boek geselecteerd zijn. 
Een volledige lijst van programma-auteurs vindt u ach- 
ter in dit boek. 

De Nederlandse bewerking van de programma’s is van 
Karin Kaptein. Zij verzorgde ook de invoer op cassette 
en de programma-listings en -voorbeelden. 

En nu is het tijd voor u en uw Spectrum! 

Veel plezier met deze spelletjes, die nadrukkelijk de be- 
naming ‘Dynamisch’ verdienen! 




Videospelletjes 


LEVEL-5 

Ons eerste programma is gelijk al een erg spannend 
spel. LEVEL-5 is een snelbewegende versie van een 
bekend videospel. 

Het spelgebied wordt gevormd door vijf niveaus, die 
onderling verbonden zijn door een aantal ladders. Vier 
monsters beginnen op het onderste niveau, en klimmen 
langzaam naar boven. Uw taak is de monsters gevan- 
gen te nemen in de kerker onder het onderste niveau. 
Het voornaamste probleem is, dat de monsters altijd 
naar boven klimmen. De enige manier waarop u ze dus 
naar beneden kunt krijgen, is door het graven van een 
gat in een van de niveaus, zodat de monsters naar be¬ 
neden vallen. U kunt een gat graven, door op de toets 
‘0’ te drukken. Dit werkt echter alleen, als er geen ander 
gat op het scherm aanwezig is. leder gat bestaat slechts 
voor een korte tijd, daarna wordt het automatisch weer 
opgevuld. 

U kunt de bewegingen besturen met de volgende toet- 
sen: ‘5’ (links), ‘8’ (rechts), ‘6’ (naar boven) en 7’ (naar 
beneden). Het spel eindigt, als u alle monsters gevan- 
gen heeft. Als u dit voor elkaar heeft, geeft het program¬ 
ma aan, hoelanguer over gedaan heeft. Het programma 
wordt echter voortijdig beeindigd, als een van de mon¬ 
sters u te pakken krijgt. Zoals vaak het geval is bij Spec¬ 
trum programma’s, wordt de kwaliteit van de grafische 
weergave niet erg goed benaderd door de print-uitvoer, 
die hieronder afgedrukt is. Als u het programma pro- 
beert, zult u versteld staan van de snelheid en de versla- 
vende werking, die ervan uitgaat. De beste score van 
de auteur van het programma, Paul Toland, is 60. We 
dagen u uit dit te verbeterenl 
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Regel 1 laat zien, welke grafische tekens er op welke 
toets gebruikt worden, de stenen staan hierbij op de 
‘A’, een gedeelte van de ladder op ‘B’, uzelf (het rennen- 
de figuurtje) op toets ‘C’ en de ‘aantrekkelijke’ monsters 
op toets ‘E’. Regel 25 geeft de besturing over een regel 
9100, nadat de INK op wit gezet is, en de PAPER en 
BORDER op blauw. In deze subroutine worden de in- 
structies op het scherm gezet. Regel 9130 wacht, totdat 
u iets ingetoetst heeft, en maakt daarna het scherm 
schoon. Daarna ziet u het laatste stuk van de instructies, 
gevolgd door de boodschap: ‘Veel geluk!!’. De RE- 
TURN-instructies op regel 9160 geven de besturing 
weer terug aan regel 30, waar de subroutine op regel 
9000 aangeroepen wordt. Regel 9000 begint met een 
RESTORE van de DATA-pointer naar zichzelf (eigenlijk 
naar de eerste DATA-opdracht na het getal, dat voIgt 
op RESTORE). Dit mechanisme zorgt er voor, dat als 
de I- en J-loops uitgevoerd worden (regel 9001 tot 
9040), deze verwijzen naar de getallen, die in de grafi¬ 
sche tekens gePOKEd moeten worden vanaf regel 9050 
tot regel 9090 en dus niet vanaf de eerste DATA-op- 
dracht op regel 1070. 

Nadat het programma de grafische karakters heeft ge- 
definieerd, wordt de uitvoering vervolgd (door de twee- 
de opdracht op regel 30) vanaf regel 700. Hier worden 
de vijf niveaus afgedrukt, voor iederniveaus een rij 'bak- 
stenen’. Regel 910 is een RESTORE voor zichzelf, hier 
wordt net als bij regel 9000 de DATA-pointer naar de 
eerste DATA-opdracht verplaatst, die op de RESTORE 
voIgt. In dit gevai is dit regel 1030. Die bevat informatie, 
die gebruikt wordt in de I- en J-loops (1000 tot 1050) 
om de ladders op het scherm te plaatsen. Regel 1055 
maakt de onderste regel van het scherm schoon, en 
het programma keert terug naar regel 40, waar de echte 
‘gein’ begint. 

Y en X, de coordinaten van het mannetje (u dus), worden 
ingesteld op 4 in regel 50, en er wordt een array gemaakt 
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in het tweede gedeelte van deze regel, die de monsters 
bevat, voordat deze op hun beginpositie worden ge- 
plaatst met de loop op regel 60. De H-array (waar het 
‘gat’ opgeslagen wordt), wordt gedimensioneerd op re¬ 
gel 70, en zowel de INK als de PAPER wordt in regel 
80 op 8 gezet. Daarna wordt uiteindelijk het mannetje 
op het scherm afgedrukt in regel 90. 

De variabele TIME (denk aan Paul’s beste score, 60!) 
wordt in regel 100 op nul gezet, en vervolgens in regel 
395 verhoogd, daar wordt ook de nieuwe waarde van 
TIME op het scherm afgedrukt. De titel van het program- 
ma wordt in regel 110 aan de bovenzijde van het scherm 
geplaatst, waarbij ruimte open wordt gelaten om later 
TIME af te drukken, en de flag FREE wordt in regel 190 
op nul gezet. 

De l-loop bestuurt de positie en de bewegingen van de 
monsters. Deze loop is van regel 200 tot 390 en bevat 
eigenlijk alle belangrijke acties in het programma. Hier- 
onder vallen (o.a.) het bewaken van de vertikale bewe- 
ging van de monsters (regels 205), het opnieuw afdruk- 
ken (regel 220), het controleren van hun direkte omge- 
ving (regels 225 en 230), en een sprongopdracht naar 
regel 430 als ze u te pakken hebben, of naar regel 280 
als ze een ladder opklimmen. De horizontale coordinaat 
van de monsters wordt verhoogd in regel 240, en de 
daarop volgende regel verandert de richting, waarin een 
monster zich beweegt, als hij aan het einde van een 
niveau is gekomen. ‘Weg Monster' wordt uitgevoerd op 
regel 270, als een monster in een gat loopt, en het mon¬ 
ster wordt in regel 280 op zijn nieuw positie afgedrukt. 
Een gat bestaat gedurende 40 ‘cycli’ van het program¬ 
ma, en regel 295 vult een gat na afloop van deze periode. 
Regel 300 leest het toetsenbord, en springt over het 
grootste gedeelte van de volgende routine indien er 
geen toets ingedrukt is op regel 300. Als de routine een 
0 leest, weet het programma, dat u een gat wilt graven. 
Als 1-1(3) gelijk is aan nul, weet het programma, dat u 
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geen andere gaten op het scherm heeft gemaakt, en 
de coordinaten van een nieuw gat worden ingevuld, 
volgens de zelfde coordinaten waar het mannetje op 
dat moment staat, en een regel lager, voordat erop die 
positie een gat afgedrukt wordt, daarna voIgt een 
sprang naar regel 390. 

De computer weet, dat als u een nul ingetoetst heeft 
op regel 315, u geen 5, 6, 7, of 8 in de volgende regels 
ingetoetst kunt hebben. Het programma wordt daarom 
maximaal versneld door het overslaan van de regels, 
waarvan bekend is, dat deze regels dit keer niet uitge- 
voerd behoeven te worden. Regel 317 bekijkt, of u geen 
andere toetsen intikt, dan tussen ‘4’ en ‘9’, en als dit 
niet het geval is, wordt er naar regel 390 gesprongen. 
de volgende regel plaatst het mannetje op de juiste po¬ 
sitie, en regel 325 POKEd het ATTRibute-adres van Uw 
positie met 15, om u zo van uw huidige posite te verwij- 
deren, voordat u opnieuw afgedrukt wordt in regel 390 
(ATTRibuten zijn opgeslagen na de DISPLAY FILE, van- 
af adres 22528). 

Regel 327 controleert, of u op een looppad bent, als 
deze routine ontdekt, dat dit niet het geval is, wordt er 
naar regel 350 gesprongen om te controleren, of u op 
een ladder naar boven of beneden wilt bewegen. N, de 
waarde die gebruikt wordt om de ATTRibute van uw 
positie te POKEn, wordt op uw huidige ATTRibute ge- 
zet, voordat u op regel 380 afgedrukt wordt. Regel 330 
wordt bereikt, als u op een looppad bent, waar het toet- 
senbord u naar wens verplaatst, al naar gelang u een 
‘5’ of een '8’ ingedrukt hebt. Regel 340 zorgt er voor, 
dat u niet van het scherm af kunt lopen. Regel 390 ten- 
slotte start de gehele cyclus opnieuw. Nadat u de l-loop 
vier maal heeft doorgemaakt, wordt de variabele FREE 
bekeken, om te zien of alle monsters gevangen zijn . 
Als dit niet het geval is, wordt de uitvoering op 190 
voortgezet om de monsters aan de gang te houden. 
Regel 410 signaleert, dat alle monsters gevangen zijn, 
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en op regel 430 wordt opgemerkt, dat ze u te pakke 
hebben. Er wordt dan nog de mogelijkheid gebodei 
om een nieuw spel te starten, op regel 500 wordt iedi 
antwoord buiten ‘n’ en ‘N’ gebruikt, om een nieuw sp 
te starten. 


1 REM UDGR—ft B=B C=C E=E 

2 REM 

IS REM L.EUEL 5 P.TOLRND 
20 INK 7. PAPER 1: BORDER i: 


350 IF IS = "7" AND fifTTR (V-1,X) = 
14- THEN LET Y=Y-1 „ „ 

363 IF I$="S" HMD flTTR {Y + 1,X} = 


”RRflflflRRflRflfiRRRfiRflflfiRRRARRflflfi 


1030 PRINT INK 6; RT Y + I..: 
104.0 NEXT I 
1050 NEXT J 

1055 PRINT RT 21,0; PRPEI 


8999 STOP 



















Circus is een videospel, dat wel iets lijkt op ‘Breakout', 
maar waarbij een veel interessantere omgeving gebruikt 
wordt, en ook aan de spelers een grotere uitdaging ge- 
boden wordt. U moet trachten de rijen ballonnen aan 
de bovenzijde van het scherm uiteen te laten spatten 
door omhoog te springen met twee clowns, die aan de 
onderzijde van het scherm op een wip staan. U kunt de 
wip besturen met de toetsen ‘5’ en ‘8’. Als u de toets 
T indrukt, wordt de clown op de wip aan de andere 
zijde van de wip geplaatst. De vallende clown moet op 
het vrije eind van de wip vallen, liefst zo ver mogelijk op 
het uiteinde, om de andere clown in de lucht te laten 
schieten. Als de clown niet ver genoeg op het uiteinde 
van de plank landt, dan komt de andere clown niet hoog 
genoeg om de ballonnen te raken. 

Het spelletje is zo moeilijk om te leren, dat we de origi- 
nele versie aangepast hebben. U krijgt nu een aantal 
‘reserve’-clowns, zodat u een kans krijgt om een redelijk 
aantal ballonnen stuk te krijgen. 

Als u het programma start, ziet u de instructies als voIgt 
op uw scherm: 
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HETCIRCUS IS NAAR DE STAD GEKOMEN METALSHOOFDATTRAKTIE 
‘DE CLOWNS OP DE WIP\ TWEE CLOWNS LANCEREN ELKAAR OP DE 
WIP, OM ZO DE BALLONNEN, DIE IN DE LUCHT HANGEN, DOOR TE 
PRIKKEN. DE DALENDE CLOWN MAG NIET OP DE GROND OF OP DE 
VERKEERDE KANT VAN DE WIP LANDEN. ALS HIJ TE DICHT BIJ HET 
MIDDEN LANDT ZAL DE ANDERE CLOWN NIET HOOG GENOEG 
KOMEN. HET CIRCUS HEEFT MAAR 6 CLOWNS. U BEDIENT DE WIP 
MET DE TOETSEN 5 EN 8. U KUNT DE CLOWN OP DE WIP VAN ZIJDE 
LATEN VERANDEREN DOOR 1 IN TE TOETSEN. GEBRUIK N OM TE 
STOPPEN EN ELKE ANDERE TOETS OM TE BEGINNEN. 


En zo ziet het programma er uit, als het uitgevoerd 



De listing laat zien, welke grafische tekens er gebruikt 
worden (regel 5), die ‘A’ is het midden van de wip, de 
‘B’ voor de clown en de ‘C’ voor de ballon. Nadat de 
random-getallengenerator in regel 20 ingesteld is, gaat 
het programma naar regel 80, waar OVER op 1 gezet 
wordt, de INK op zwart, de PAPER op wit en de BOR¬ 
DER op rood. Daarna wordt het scherm schoonge- 
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maakt, hiermee wordt de nieuwe PAPER kleur in gebruik 
genomen. 

Nu wordt het programma voortgezet op regel 900, waar 
twee andere subroutines aangeroepen worden (regels 
1100 en 1020). De eerste hiervan (vanaf regel 1100) print 
de titel van het programma en de instructies, de tweede 
(vanaf regel 1020) definieert de grafische tekens. Nadat 
uit deze subroutines is teruggekeerd, wordt het frame 
rond het scherm getekend (regels 902 tot 905), en de 
ballonnen worden op hun plaats gezet door de loop van 
regel 910 tot regel 930). U ziet dat deze loop ook de 
‘reserve’-clowns aan de zijkant van het scherm neerzet. 
In de volgende twee regels worden een aantal variabe- 
len gedefinieerd. SC bevat de score van het aantal bal¬ 
lonnen, dat u geraakt hebt. Dit aantal wordt verhoogd 
in regel 180. SS is de horizontale positie van de basis 
van de wip, die in regel 50 gebruikt wordt om de wip 
en de clown te plaatsen, in de volgende regels wordt 
de plank van de wip getekend. Merk op, dat de regels 
40 en 60 een subroutine zijn, die verschillende keren 
vanuit het programma worden aangeroepen. 

M is een teller, die het aantal clowns bijhoudt, dat u tot 
nu toe gebruikt hebt. Deze variabele wordt in regel 300 
verhoogd en aangeroepen vanuit regel 230. Het array 
B wordt gebruikt om 26 spaties af te drukken, nadat 
een clown gevallen is. Dit gebeurt in regel 330. OD en 
AN besturen de positie van de clown. Als deze waarden 
negatief gemaakt worden (regel 107), dan wordt hier- 
door de clown op de plank naar de andere zijde ge- 
bracht. OD en AN worden gebruikt op regels 50, 260 
en 280. 

De variabele CA wordt gebruikt, om te zien, of AN gewij- 
zigd moet worden (zie regels 95 en 270). HL wordt in 
regel 250 ingesteld, en in regel 160 gebruikt om tezien, 
of de Y-coordinaat van de huidige clown (de verticale 
verplaatsing) verhoogd moet worden in de tegengestel- 
de richting. (zie 160 en 140). X is de horizontale startpo- 
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sitie van de clown, die wordt gebruikt in regel 130 en 
verhoogd in regel 140 met de waarde A. De variabele 
A wordt in regel 280 veranderd, om de horizontale be- 
weging van de clown om te keren. Y (wordt ingesteld 
in regel 950) is de start-coordinaat van de clown. Deze 
waarde ligt tussen de 5 en 8. Regel 100 leest het toet- 
senbord voor '5' en ‘8’. Hiermee wordt de verticale coor- 
dinaat van de basis van de wip gewijzigd. Deze waarde 
wordt in regel 105 gecontroleerd, om er zeker van te 
zijn, dat u de wip niet te ver naar links of naar rechts 
kunt bewegen. 


a.00 LET ss> 
EY|b"S") 

105 LET SS' 
107 IF INKEY 


130 PRINT I 
14.0 LET X=; 
150 IF X=3 


















tar ten." . 

1130 IF INKEY$—"" THEN GO TO 113 

11*0 IF INKEY*="n" OR INKEY $ = "N" 
THEN STOP 
1150 CUS 
1160 RETURN 


Jogger 

U moet vijf vermoeide joggers helpen oversteken over 
een drukke zesbaans snelweg. Een voor 6en geven de 
joggers hun leven in uw handen, terwijl u ze door het 
drukke verkeer leidt. U gebruikt hiervoor de toetsen ‘5’ 
(links), ‘8’ (rechts), ‘6’ (omhoog) en 7’ (naar beneden). 
Een fout, en uw jogger is er geweest! En dan heeft u 
niet alleen het langsrazende verkeer, om u zorgen over 
te maken, maar bovendien de klok. Want iedere keer, 
dat u de vijf joggers aan de overkant geholpen heeft, 
wordt uw tijd meegedeeld (gemeten in de welbekende 
eenheid ‘hartslagen’!), en na een korte adempauze 
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staan er weer vijf nieuwe joggers klaar, om door u naar 
de overzijde geleid te worden. 

Zoals u op de print-out kunt zien, zijn er altijd vijf joggers 
op het scherm. Deze joggers wachten geduldig aan de 
onderzijde van het scherm, of ze zijn aan het oversteken 
en lopen dus op de weg, of staan aan de rechter-boven- 
zijde van het scherm, veilig aan de overkant. Aan de 
bovenzijde van het scherm wordt opgegeven hoeveel 
joggers u nog over moet helpen, en hoe vaak u de reis 
reeds gemaakt hebt. Op de tweede regel ziet u het aan- 
tal joggers, dat u veilig aan de overkant gebracht heeft. 
Deze waarde wordt verhoogd, zodra u weer een volgen- 
de jogger door het drukke snelverkeer heeft geloodst. 
Als u het spel een beetje onder de knie heeft, kunt u 
ook de tweede versie proberen. In deze variatie stoppen 
de joggers nooit met lopen, hierdoor wordt een grote 
concentratie gevraagd om de jogger door het verkeer 
te leiden. U kunt dus beter de eerste versie goed onder 
de knie hebben, voordat u aan de tweede versie begint. 
Het programma begint op regel 20 met een aanroep 
naar de subroutine op regei 410. Hier wordt de INK op 
blauw gezet, de PAPER op wit, de BORDER op rood 
en het scherm wordt vervolgens schoongemaakt. De 
A-loop vanaf regel 440 tot regel 500 definieert de zes 
grafische tekens. De eerste (grafische A, of ASCII teken 
nummer 144) is de jogger, de anderen zijn de auto’s. U 
ziet in deze loop, dat E$ ingesteld wordt op ASCII teken 
nummer 143 plus de waarde van A. De binnenste loop, 
B, leest de DATA-opdracht van regel 560 tot 610 met 
een READ-opdracht, en POKEd deze waarden op de 
juiste positie met behulp van regel 480. 

Regel 510 zet de variabele TIME (dit staat voor de ver- 
streken tijd per ronde van vijf joggers, gemeten in 'hart- 
slagen’) en stelt de variabele BESTTIME op een zeer 
hoog getal. (U kunt zien, hoe groot het getal 9E7 is, 
door het directe commando ‘PRINT 9E7’ te geven). Uw 
BESTTIME zal kleiner zijn dan deze tijd, zodat u deze 
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variabele instelt op het moment, dat u het eerste stel 
van vijf joggers veilig aan de overzijde van de snelweg 
heeft gebracht. 

De strings A$, B$, C$ en D$ - waarin de auto’s zich 
bevinden - worden opgebouwd in de regels 520 tot 
550. U kunt zo veel - of zo weinig - auto’s in deze 
strings plaatsen als u wilt, zolang u er maar voor zorgt, 
dat de totale lengte van de strings 32 tekens is. Het is 
dus mogelijk, om het aantal auto’s te vergroten, om het 
spelletje moeilijkerte maken, voordat u met detweede 
versie begint. In deze tweede versie kunt u dan weer 
met een klein aantal auto’s beginnen. De auto’s in de 
strings kunnen echter niet volledig willekeurig geplaatst 
worden. Zij zijn namelijk zo ontworpen, dat zij met de 
voorkant naar links of naar rechts staan. Bovendien zijn 
er ook auto’s die er even goed uitzien, welke kant ze 
ook op rijden. De bovenste drie rijen verkeer rijden van 
links naar rechts, de onderste drie van rechts naar links. 
U kunt de grafische ‘B’ in iedere string gebruiken, maar 
de ‘C’ moet gebruikt worden in A$ en B$, terwijl de 
tekens ‘D’, ‘E’ en ‘F’ gereserveerd zijn voor de strings 
C$ en D$. Als de variabelen zijn gei'nitialiseerd, en de 
grafische tekens gedefinieerd, stuurt de RETURN-op- 
dracht in regel 555 het programma terug naar regel 30, 
waar de J-loop begint. Deze loop bestuurt de belangrijk- 
ste elementen van het programma, en zoals u kunt zien, 
wordt deze loop 5 maal doorlopen, voor iedere jogger 
een maal. Regel 40 print uw ‘aantal joggers veilig’, dit 
is dus altijd een minder dan de waarde van de J-varia- 
bele uit de loop, en de verstreken tijd. In regel 50 wordt 
het aantal joggers afgedrukt, dat de snelweg nog niet 
veilig heeft overgestoken. Dit aantal is dus altijd 5 min 
de huidige waarde van J (dus als J de waarde 1 heeft, 
is het aantal nog niet veilige joggers 4, omdat er dan 
een jogger onderweg is naar de overkant. 

De kleine loop van regel 60 tot regel 90 print het kleine 
iogger-figuurtje, voor iedere jogger, die u veilig heeft. 
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Regel 100 maakt de onderste regel schoon, zodat even- 
tuele overblijvende joggers van het scherm verwijderd 
worden. De loop van regel 110 tot regel 130 print daarna 
een jogger voor iedere nog wachtende jogger. De varia- 
bele JA is de positie van de huidige jogger, die op weg 
is over het scherm, en JD is de vertikale positie van 
deze jogger. De jogger begint te lopen vanaf positie 
(16,19), dit is ongeveer het midden van de onderzijde 
van het scherm onder de eerste rij auto’s. Regel 150 
print een spatie op de plaats, waar de jogger gestaan 
heeft na een beweging, zodat deze posities schoonge- 
maakt worden als de jogger in beweging is. Regels 160 
en 170 lezen het toetsenbord, zodat u de jogger volgens 
uw wensen kunt bewegen. Op regel 180 wordt tenslotte 
de jogger geprint. 

De lange regel 190 print alle rijstroken met auto’s. De 
opdracht PRINT wordt hier gebruikt voor maximale 
snelheid. Regels 200 tot 230 vergelijken de huidge po¬ 
sitie van de jogger met de inhoud van de string op die 
positie. Als hier blijkt, dat de jogger en een auto op de 
zelfde positie staan, wordt de besturing overgegeven 
aan regel 350, waar de routine wordt uitgevoerd, die 
een jogger laat verongelukken. De regels 250 tot 280 
besturen de beweging van de auto’s. Hierbij wordt ge- 
bruik gemaakt van Sinclair BASIC string verwerking om 
de elementen van de strings te verschuiven. 

De variabele TIME wordt verhoogd in regel 290. In regel 
300 wordt de waarde van de variabele JD bekeken. Als 
deze waarde 2 is, weet de computer dat er weer een 
jogger veilig aan de overkant is gekomen. Er wordt dan 
een aardig melodietje gespeeld, voordat de NEXT J-op- 
dracht op regel 300 de besturing weer terugstuurt naar 
regel 40. Hier vandaan begint dan de volgende jogger 
aan zijn gevaarlijke oversteek. 

Als de jogger echter niet veilig over komt (JD is dus 
ongelijk aan 2) dan slaat de computer de rest van regel 
300 over en gaat verder op regel 310. Als JD hier kleiner 
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is dan 6, wordt de besturing overgegeven aan regel 150, 
waar de jogger van het scherm verwijderd wordt, voor- 
dat hij door regel 180 opnieuw geprint wordt. 

Als alle joggers veilig zijn, wordt door regel 320 de tekst 
‘Deze ronde:’ geprint, samen met de tijd, die u nodig 
had om de jogger over te krijgen. Daarna wordt er een 
‘5’ geprint achter de tekst ‘Joggers veilig:’, en op het 
scherm komt de melding ‘U HEEFT HET VOOR EL- 
KAAR'. Regel 330 vertelt u vervolgens, hoelang u er 
over gedaan heeft, en regel 340 stuurt het prorgramma 
verder naar regel 620. 

Op regel 620 wordt de tijd van deze ronde vergeleken 
met de waarde BESTTIME, en als de waarde van TIME 
kleiner is, dan wordt de waarde BESTTIME gelijk ge- 
maakt aan de waarde van TIME. Als de waarde van 
BESTTIME ongelijk is aan 10000 (wat voor kan komen 
als u dit spelletje voor het eerst probeert), dan wordt 
de waarde van BESTTIME op het scherm afgedrukt, 
zodat u kunt zien hoe goed (of slecht!) u het ervan af 
gebracht heeft. Daarna klinken nog een aantal contras- 
terende tonen (regel 620), de variabele TIME wordt op 
0 gezet, en het programma gaat verder op regel 30 om 
zo de volgende ronde te starten. 

Als u er niet in geslaagd bent, de vijf joggers aan de 
overkant te krijgen, dan wordt de routine vanaf regel 
350 opgestart. (Zoals u zich zult herinneren, wordt dit 
gedaan door de IF/THEN-regels van regel 200 tot 230). 
De loop (van regel 350 tot regel 370) print daarna een 
knipperende jogger op de plaats, waar deze geraakt is 
door een auto, er klinken tonen, en er wordt u meege- 
deeld (hoewel u dit waarschijnlijk al begrepen had), dat 
u geraakt bent. Vervolgens krijgt u te zien, hoeveel jog¬ 
gers u aan de overkant heeft gekregen (regel 390). De 
variabele TIME wordt ingesteld op de waarde 10000, 
zodat deze niet geprint wordt, en uw BESTTIME-waar- 
de wordt daardoor ook niet aangepast. Als de waarde 
van TIME niet op deze wijze kunstmatig verhoogd zou 
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worden, krijgt u namelijk op een heel eenvoudige wijze 
eert heel goede BESTTIME, eenvoudig door onder de 
eerste auto te lopen, die u op het scherm ziet. 

Als u dit spelletje een beetje onder de knie hebt, kunt 
u het naar wens moeilijker maken, door meer auto’s toe 
te voegen, of door uw eigen voertuigen te ontwerpen 
en toe te voegen. Een aantal paarden, een bromfiets of 
een trekkar kunnen het spel nog verder verlevendigen. 
Als zelfs deze eigengemaakte versie van JOGGER u 
niet langer kan boeien, probeer dan deze wijzigingen 
ook aan te brengen in de tweede versie van JOGGER. 
In deze versie begint de jogger namelijk direct te lopen, 
en blijft gedurende de gehele oversteek in beweging. 
Dit is dan werkelijk een hele uitdaging, en wellicht vindt 
u het prettiger, om het spelletje een beetje tevereenvou- 
digen als u begint. Dit kunt u doen, door wat minder 
auto’s op de weg te laten rijden, of door het spel op 
een wat langzamere snelheid te laten verlopen. Dit laat- 
ste doet u (bijvoorbeeld) door de regel: 

195 BEEP ,05,RND*50 

in het programma toe te voegen. 

Veel geluk, Jogger, en dat u de weg veilig moge overste- 
ken! 

Dit is een voorbeeld van de uitvoering van het program- 
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Mijnenveger 

Dit spelletje is erg moeilijk, omdat er TWEE objecten 
TEGELIJK bestuurd moeten worden. Uwtaak is, de mij- 
nen van het scherm te vegen. Een taak die extra moeilijk 
is, omdat het verwijderen van een mijn in twee stappen 
gedaan moet worden. Eerst moet u de mijnen onscha- 
delijk maken. Hiertoe heeft u de beschikking over een 
INVERTER. Als u de inverter over een mijn beweegt, die 
op scherp staat, dan wordt deze daardooronschadelijk 
gemaakt. Maar let op: als u met de inverter over een 
onschadelijk gemaakt mijn beweegt, dan wordt deze 
daardoor opnieuw geactiveerd. U bestuurt de inverter 
met de toetsen ‘5’ tot ‘8’. 

Behalve de inverter heeft u ook de besturing over de 
VEGER. Met de veger kunt u een onschadelijk gemaakte 
mijn van het scherm verwijderen. Maar pas op: u moet 
er echt zeker van zijn, dat de veger een onschadelijke 
mijn benadert. Als de mijn namelijk nog (of weer) actief 
is, dan vliegt uw veger de lucht in. De veger wordt ook 
bestuurt met de toetsen ‘5’ tot ‘8’, maar dan met de 
SHIFT-toets ingedrukt. 
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Erzijn 40 mijnen en een keuze uit vijf verschillende moei- 
lijkheidsgraden, zodat u dit spelletje u niet snel zal ver- 
velen. Zoals u op het programmavoorbeeld kunt zien, 
wordt het u niet gemakkelijk gemaakt, en het is niet 
eenvoudig om ailes onder controle te houden. Als u het 
programma voor de eerste keer opstart, dan wordt van- 
af regel 30 de subroutine, beginnende op regel 600 aan- 
geroepen. Hier worden de grafische tekens ‘A’, ‘B' en 
'C' gedefinieerd. De ‘Z’ in de iaatste DATA-opdracht 
geeft het einde van de subroutine aan, en de besturing 
wordt dan teruggegeven aan het hoofdprogramma door 
de RETURN-opdracht op regel 600. Als uit deze subrou¬ 
tine teruggekeerd is, dan wordt de besturing doorgege- 
ven naar regel 520 (door de GOSUB in regel 30), waar 
de instructies voor het programma uitgeprint worden 
op het scherm: 

UW OPDRACHT IS DE MIJNEN OP HET SCHERM TE VERWIJDEREN. 
DEZE OPERATE IS IN TWEE HANDELINGEN ONDERVERDEELD. EERST 
MOET DE MIJN ONSCHADELIJK GEMAAKT WORDEN, DOOR DE 
INVERTER OVER DE MIJN TE BEWEGEN (M.B.V. TOETSEN 5 TOT 8), 
DAARNA MOET DE MIJN VERWIJDERD WORDEN DOOR DE VEGER. 
DEZE BEDIENT U MET DE TOETSEN 5 EN 8 MET DE CAPS LOCK EN 
SHIFT TOETS INGEDRUKT. DE VEGER MAG GEEN ONSCHADELIJKE 
MIJN RAKEN. 

Als u dit gelezen heeft, dan kunt u uw gewenste moei- 
lijkheidsgraad opgeven na de vraag: 

GEEF MOEILIJKHEIDSGRAAD 1-5. 

5= EENVOUDIG 
TOETS 6 OM TE STOPPEN. 

De INKEY$-routine op regels 540, 550 en 560 accep- 
teert een geldige invoer, en verwerpt alle invoer, die 
buiten de grenzen van '1 ’ tot ‘6’ liggen (regel 550). Het 
programma wordt hier beeindigd, als een ‘6’ ingetoetst 
wordt. In regel 570 wordt de variabele SP ingesteld op 
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een waarde, die overeenkomt met de gekozen moeilijk- 
heidsgraad van 1 tot 5. SP bestuurt in het verdere ver- 
loop van het spel de moelijkheidsgraad. Regel 580 
stuurt het programma naar regel 40, de regel na de 
GOTO die het voorgaande deel opgestart heeft. In regel 
40 wordt het scherm opgemaakt. De INK en PAPER 
worden beide ingesteld op 5 (cyaan), het scherm wordt 
daarna schoon gemaakt om de kleur in te stellen, en 
ook de BORDER wordt op cyaan ingesteld. De INK- 
kleur wordt dan gewijzigd in zwart, en in de variabele 
V$ wordt een spatie opgenomen. Regels 50 en 60 initia- 
liseren de verschillende variabelen, die verschillende 
zaken besturen, zoals de positie van de inverter en de 
veger, en het aantal mijnen, dat door u onschadelijk is 
gemaakt. De routine in regel 70, 80 en 90 tekent de 
grenzen, waarbinnen de acties van het spelletje zich 
afspeelt. De routine op regels 100 tot 150 plaatst de 
mijnen op het scherm. Hierbij wordt er door regel 130 
voor gezorgd, dat er geen mijnen op een positie ge- 
plaatst worden, waar reeds een mijn staat. Als dit name- 
lijk zou gebeuren, is het aantal mijnen op het scherm 
kleiner dan 40, en wordt het einde van het spel, als 40 
mijnen verwijderd zijn (zie regel 370) nooit bereikt. Zodra 
de mijnen op hun positie staan (afgedrukt in rood, zie 
de INK-verandering aan het einde van regel 90), wordt 
de INK weer op cyaan ingesteld in regel 155.1$ wordt 
gebruikt om uw commando’s te accepteren. Het eerste 
gedeelte (regels 180 tot 210) wordt gebruikt om de ‘nor- 
male’ toetsen ‘5’ tot ‘8’ te interpreteren. Hiermee be¬ 
stuurt u de inverter. In het tweede deel (regels 220 tot 
260) wordt er gekeken naar de zelfde toetsen, maar dan 
in combinatie met de SHIFT-toets. Merk op dat in regel 
220 de CODE van 1$ wordt bepaald, en dat deze code 
gebruikt wordt om de ingetoetste waarde vast te stellen. 
Dit is een handige techniek, als u een geSHIFTe toets 
wilt lezen op een willekeurige positie van het scherm. 
Om uit te vinden, welke CODE er bij welke toets hoort, 
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kunt u een eenvoudige routine schrijven, die de CODE 
uitprint van de toets, die u intikt. 

Het resultaat van deze berekening wordttoegekend aan 
de variabelen A, D, CA en CD (A en D voor de inverter, 
CA en CD voor de veger). Deze variabelen worden daar- 
na opgeteld bij de waarde van de positie van de inverter 
en de controler, nadat de ‘oude’ posities ervan in regel 
270 met spaties overschreven zijn. 

De variabele N krijgt nu de waarde van de ATTRibute 
van de nieuwe positie van de inverter, waarbij CN de 
waarde krijgt, van de ATTRibute van de positie van de 
veger. Regel 320 print vervolgens de beide objecten en 
regel 325 voegt een korte BEEP toe. Zoals u kunt zien, 
wordt de waarde van de BEEP bepaald, door de moei- 
lijkheidsgraad, die u aan het begin van het spel hebt 
opgegeven. Hoe hogerdat getal is, hoe langerde BEEP 
is, die door regel 325 geproduceerd wordt. Zoals u weet, 
wordt de uitvoering van een programma op de Spec¬ 
trum gestopt, zolang de BEEP-opdracht actief is, dus 
op deze manier krijgen we zowel een handige manier 
om de moeilijkheidsgraad van het programma vast te 
stellen, terwijl tegelijkertijd een BEEP gegeven wordt 
om het programma te verlevendigen. Als u het program¬ 
ma zelfs op niveau 5 te moeilijk vindt, kunt u de ‘9’ op 
regel 570 veranderen in een kieinere waarde. 

Als N gelijk is aan 40 of CB gelijk is aan 40, dan weet 
het programma, dat u tegen de muur aan de grens van 
het scherm gebotst bent, en het programma print dan: 
‘U BENT TEGEN DE ELEKTRISCHE BARRI^RE GE¬ 
BOTST’. 

Regels 340 en 350 brengen de nodige veranderingen 
aan in de mijnen, als u over een mijn beweegt met de 
inverter. Hier worden dus actieve mijnen onschadelijk 
gemaakt en vice versa. Als de waarde van CN 42 is, 
dan weet de Spectrum, dat u met de veger op een scher- 
pe mijn gekomen bent, en het programma wordt dan 
beeindigd via regel 440, waar de boodschap ‘U HEEFT 
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EEN ACTIEVE MIJN GERAAKT’ wordt afgedrukt in rode, 
knipperende letters. 

Als u een actieve mijn onschadelijk heeft gemaakt (AT- 
TRibute is CN is 42, regel 370), dan wordt uw score (S) 
van verwijderde mijnen met 1 verhoogd. Als S daarna 
gelijk is aan 40 (einde van regel 370), dan weet de com¬ 
puter, dat u alle mijnen heeft verwijderd, en regel 470 
wordt dan geactiveerd. De boodschap ‘U HEEFT HET 
VOOR ELKAAR’ wordt nu afgedrukt. Als dit geen van 
beide het geval is (u heeft geen actieve mijn geraakt, 
en u heeft niet alle mijnen verwijderd), dan stuurt regel 
380 het programma terug naar regel 160 om het gehele 
proces voort te zetten. 

De rest van het programma, van 400 tot 510, bevat de 
boodschappen voor het einde van het spelletje, en een 
aantal korte uitbarstingen van Spectrum’s muzikaal ge- 
weld. Als u een bijzonder vertrouwde speler bent gewor- 
den, verwijder dan regel 325 en kijk eens hoe u het 
ervan af brengt. Dat is de laatste uitdaging die we u met 
dit programma kunnen bieden. 
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Dit is een programma om uw vliegkunst te testen. U 
heeft vier helikopters, en uw taak is, een aantal aanval- 
lende rode lijnen te verslaan. U kunt deze lijnen verslaan, 
door er op te landen. U moet daartoe eerst op de kortste 
lijn landen, die u ziet, daarna op de op een na kortste, 
en zo verder totdat u de langste lijn als laatste verslaat. 
Een verkeerde beweging en u verliest een helikopter. U 
heeft vier helikopters waarmee u de opdracht dient te 
voltooien, en u krijgt een bonus als het u lukt zonder 
alle vier de helikopters te gebruiken. 

U bestuurt de kleine machines met de toets ‘0’ om te 
stijgen, en de toetsen ‘5’ en ‘8’ om naar links en rechts 
te bewegen. U moet constant naar boven sturen, want 
de zwaartekracht trekt u automatisch naar beneden. 
Uw uiteindelijke score wordt vastgesteld aan de hand 
van de hoeveelheid brandstof, die u verbruikt heeft. Als 
alle vier de helikopters neergestort zijn, voordat u de 
rode lijnen heeft vernietigd, dan krijgt u de grimmige 
boodschap ‘COPTER BEEINDIGD’. Bovendien wordt 
de hoogste score door het programma vastgehouden. 
Regel 10 stelt de BORDER in op de kleur zwart, de 
variabele H wordt in regel 15 op 0 gezet (voor de hoogste 
score, zie regels 532 en 535), daarna wordt INK op geel 
gezet (regel 20) en PAPER op zwart (regel 30). Hierna 
wordt het programma naar de subroutine op regel 610 
gestuurd, waar de DATA vanaf regel 900 in de grafische 
‘A’ gePOKEd wordt om de helikopters te maken, die u 
op regel 45 ziet. 

Nadat de grafische ‘A’ gedefinieerd is, wordt het scherm 
schoongemaakt, zodat de zwarte PAPER geactiveerd 
wordt. De loop van regel 50 tot regel 70 print een solide 
geel blok, waarbij gebruik gemaakt wordt van een geel 
PAPER en een reeks spaties tussen aanhalingstekens. 
Er worden twee arrays gedimensioneerd, waarin de lij¬ 
nen zich bevinden, waarop de helikopter moet landen. 
De A-loop loopt van regel 100 tot 180, hierin wordt ge- 



bruik gemaakt van een RANDOM getal, dat in regel 110 
gegenereerd wordt, en de PLOT (regel 150) en DRAW 
(regel 160) produceren een zeer effectieve landingsba- 
sis. Dit wordt duidelijk, als u het programma uitvoert. 
De routine op regel 120 en 130 zorgen er voor, dat er 
tien lijnen van verschillende lengte in de D-array opge- 
slagen worden. De variabele R krijgt in regel 185 de 
waarde 1. Hiermee wordt de lijn waarop de helikopter 
moet landen, bestuurd (als r=1, dan mikt u op de lijn, 
die aangegeven wordt met d(r)). Uw brandstof-variabele 
f, wordt op regel 190 ingesteld op de waarde 25000. 
Naast het besturen van de brandstof wordt f ook ge- 
bruikt om het geluid op regel 240 te genereren (hier 
wordt f dan wel gedeeld door 1000). Zoals u zult horen, 
produceert de helikopter een geluid, dat zeer goed bij 
dit spelletje past. De brandstof wordt op regel 250 en 
(als u stijgt) op regel 280 met 21 verminderd. De varia¬ 
bele P, uw horizontale coordinaat, wordt op 16 gezet 
in regel 210 voordat uw kleine helikopter in regel 220 
gelanceerd wordt. Regel 245 print de ‘Helikopters over’ 
(door gebruikt te maklen van 1$, die in regel 45 als drie 
helikopters gedefinieerd is) in de rechter-benedenhoek 
van het scherm, en - nadat de brandstof in regel 250 
verminderd is, en de overgebleven hoeveelheid in regel 
255 in de linker-benedenhoek van het scherm is afge- 
drukt - wordt de helikopter op de vorige positie verwij- 
derd, voordat de nieuwe helikopter wordt afgedrukt. De 
variabele U, die een initiele waarde van 1 in regel 200 
heeft gekregen, bestuurt uw vertikale verplaatsing: hoe 
hoger de waarde van variabele U is, hoe lager uw heli¬ 
kopter vliegt. De regels 275 tot 290 worden gebruikt 
om uw commando’s van het toetsenbord in te lezen (‘0’ 
om te stijgen, ‘5’ om naar links te bewegen, ‘8’ om naar 
rechts te bewegen), voordat het programma opnieuw 
rond gaat op regel 220, waar de helikopter op zijn nieu¬ 
we positie wordt afgedrukt. 

Een landing wordt door het programma opgemerkt op 
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regel 230, hierdoor wordt het programma naar regel 
400 gestuurd, waar de landing gecontroleerd wordt. Als 
de plaats waar geland wordt, niet de kortste lijn op het 
scherm is (dus p< > d (r)), dan wordt een akelig geluid 
hoorbaar, en er worden 1000 eenheden brandstof door 
het programma van uw brandstofvoorraad afgenomen. 
Daarna wordt de helikopter in een inverse kleur afge- 
drukt op de plaats van de onjuiste botsing (regel 412). 
Er klinkt opnieuw dat akelige geluid, en de helikopter 
verdwijnt (regel 413 en 414). De string 1$ wordt gecon¬ 
troleerd. Als deze string gelijk is aan de nul-string (”), 
dan weet de computer, dat u door uw helikopters heen 
bent. U zult zich herinneren, dat 1$ in het begin van het 
spel op drie helikopters werd ingesteld (regel 45). Regel 
416 verwijdert aan het einde van de string een helikop¬ 
ter, zodat als 1$ gelijk is aan ”, het programma weet, 
dat alle helikopters gebruikt zijn (let daarbij op, dat dit 
in totaal 4 helikopters zijn, een in het spel en 3 als reser¬ 
ve!). Regel 418 stuurt het programma terug naar regel 
200, waar de volgende helikopter op zijn missie ge¬ 
stuurd wordt. 

Regel 400 controleert of er een succesvolle landing uit- 
gevoerd is. Als dit inderdaad het geval is, dan wordt al 
het slechte nieuws op regels 405 tot 418 overgeslagen 
en gaat het programma direct verder bij regel 420, waar 
de helikopter verwijderd wordt van het scherm. Boven- 
dien wordt de bovenzijde van de rode lijnen door regel 
425 veranderd. Een kleine BEEP-loop op regel 532 geeft 
u de kans even op adem te komen, daarna wordt de 
variabele r met een verhoogd, zodat u aan de volgende 
lijn kunt beginnen. Als het aantal lijnen, dat u reeds ver- 
nietigd hebt, gelijk is aan elf, dan zijn er geen lijnen meer 
om op te landen, en is het spelletje afgelopen. Het pro¬ 
gramma verwijdert dan de nog aanwezige reserve-he- 
likopters (regel 490), en de brandstof wordt met 1000 
eenheden per aanwezige helikopter verhoogd. Op deze 
wijze krijgt u dus een bonus voor de niet-gebruikte he- 
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likopters, De nieuwe waarde voor de hoeveelheid 
brandstof wordt in regel 520 langzaam bijgesteld. 

De hoogste score wordt bijgewerkt, indien u deze be- 
haald hebt, en deze wordt door de volgende regel (532- 
534) afgedrukt. Daarna gaat het programma naar regel 
310, waar u wordt verteld, dat het spelletje afgelopen 
is. Als u er niet in geslaagd bent, alle lijnen te vernietigen, 
dan wordt de boodschap ‘COPTER BEEINDIGD’ op het 
scherm afgedrukt, om aan te geven, dat u gefaald hebt 
(dit ziet het programma doordat r ongelijk is aan 11). 
Op regels 330 en 340 kunt u een toets indrukken en 
weer loslaten, daarna gaat het programma verder op 
regel 40. Hier wordt dus een nieuwe ronde opgestart, 
waarin u opnieuw een kans krijgt om de beste score te 
verbeteren. Vanaf regel 40 wordt het scherm schoonge- 
maakt en daarna opnieuw opgebouwd, maar de grafi- 
sche tekens worden niet opnieuw gedefinieerd, en de 
hoogste score h, wordt ook niet opnieuw gei'nitialiseerd. 
Daarna kunt u met de nieuwe helikopters aan de gang. 
Goede vlucht!! 


5 REM Copter 
10 BORDER 0 
15 LET h =0 
20 INK 5 
30 PAPER 0 
35 SO SUB ©10 
4-0 CL© 

4-5 LET l 

50 FOR a=11 TO £1 

60 PRINT RT aPAPER 6J” t 

70 NEXT a 
80 DIM dtl0> 

90 DIM e(32) 

100 FOR a =1 TO 10 
110 LET b = INT CRND-S32) 

120 IF a( b + 1)=1 THEN GO TO 110 

130 LET e(b+1)=1 

14.0 LET d (a) =b 

150 PLOT b*S+4,67 

160 DRRU INK 2; 0, -a JrB-f-I 
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__FL.HSH 1: BRIGHT : 

INVERSE 1; PAPER 7; INK 2; h 
-—-1 310 


64.0 NEXT b 
S50 RETURN 

900 data 


Mazurka 

In MAZURKA krijgt u de schietervaring van uw leven. 
Dit spelletje lijkt wel wat op de schiettenten, die men 
wel op kermissen aantreft, waar men eenden en andere 
voorwerpen moet zien te raken. 

Deze computerversie kent echter nog een extra moei- 
lijkheid. In MAZURKA bewegen er rijen objecten boven 
u, en deze rijen worden beschermd door vier barrieres, 
die in de tegenovergestelde richting bewegen. Uw doel 
is, zo veel mogelijk objecten te raken zonder de barrie¬ 
res te raken. U kunt uw geweer bewegen (de grafische 
‘H’), door gebruik te maken van de toetsen ‘5’ en ‘8’, u 
beweegt dan in de richting, die door de pijlen op die 
toetsen wordt aangegeven. Met de ‘F’-toets schiet u 
uw geweer at. Er kan slechts een kogel tegelijk op het 
scherm zijn. U heeft slechts een beperkte hoeveelheid 
munitie, en het aantal schoten, dat u nog kunt lossen, 
wordt aangegeven door de lengte van de lijn onder u. 
Zoals u kunt zien in het voorbeeld van dit spelletje, is 
het scherm een wilde verzameling rondvliegende objec¬ 
ten, die tezamen een opwindend beeld vormen. Dit is 
echter niet alles. Van tijd tot tijd komt er een eend over- 
gevlogen, ongeveer zoals het moederschip in spelletjes 
zoals Space Invaders. U krijgt en bonus van 6 punten, 
als u deze eend raakt, en u verliest 15 punten als u mist. 
De eend is betrekkelijk gemakkelijk te raken, omdat hij, 
zoals u kunt zien, onder de barrieres vliegt. 

De subroutine vanaf regel 600 wordt aangeroepen door 
regel 20. Deze routine definieert de grafische tekens, 
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verwijderd door de PLOT OVER, die hierop voIgt. In 
A$(5) worden de bewegende barrieres opgeslagen, we 
hebben nu dus A$(1) tot A${4) als objecten om op te 
schieten, en A$(5) als de barriere, die zijn best zal doen, 
om uw schoten af te weren. Regel 107 geeft een BEEP 
om te laten weten, dat het spel nu direct zal beginnen. 

De l-loop van regel 110 tot 350 is het voornaamste ge- 
deelte van het programma. Hierin worden de bewegin- 
gen van de objecten in de loop bestuurd. Dit wordt ge- 
daan, door 1$ in te stellen op het eerste element van de 
string in regel 120. Daarna wordt in regel 130 dit eerste 
element toegevoegd aan het einde van de zelfde string, 
waarvan het eerste element is verwijderd. In regel 140 
wordt de nieuwe string geprint, waarbij voor de verschil- 
lende strings verschillende INK-kleuren gekozen wor¬ 
den (de bovenste regel is blauw, de tweede rood, de 
derde magenta en de vierde regel wordt in groen afge- 
drukt). Hierna maakt regel 170 de positie schoon, waar 
de schutter afgedrukt was, en regel 180 verandert de 
horizontale positie van de schutter, afhankelijk van de 
toets, die in deze regel gelezen wordt. In regel 190 wordt 
de positie aangepast indien deze te ver naar links of 
naar rechts is. 

Op regel 200 wordt de schutter opnieuw afgedrukt. In¬ 
dien B gelijk is aan nul, dan zijn alle schoten gebruikt, 
en de actie gaat dan verder op regel 205 tot regel 430, 
waar u verteld wordt, dat u zonder munitie zit. Regel 
210 checkt, of u kunt schieten (F-toets ingedrukt, en 
geen kogel in de lucht, dus OK om te schieten!). Regel 
210 zet ook de horizontale coordinaat van de kogel (FX) 
gelijk aan die van de schutter (G). F is de vertikale coor- 
dinaat van de kogel, dus (F,FX) is de lokatie, waar de 
kogel afgedrukt en vervolgens weer uitgeveegd moet 
worden. Regel 240 verlaagt de F-coordinaat met een, 
dit heeft als gevolg, dat, als de kogel opnieuw afgedrukt 
wordt, hij een positie hoger op het scherm geplaatst 
wordt. 
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Uw scherpschutterskunde wordt in regel 250 aan de 
kaak gesteld. Als SCREEN$(F,FX) leeg is, dan ligt er 
geen object direct boven de kogel. Als er een object 
wordt gevonden, dan wordt er een test gedaan om te 
zien, of dit de barriere is (regels 260 en 265 testen dit; 
als P gelijk is aan vijf, dan heeft u de barriere geraakt.) 
Als u de barriere geraakt heeft, dan is het spel afgelopen, 
en de computer gaat verder naar regel 400 om u het 
goede nieuws mede te delen. Als u de barriere niet ge¬ 
raakt heeft, maar u heeft wel iets geraakt, dan moet dat 
iets dus een van de vliegende objecten zijn, waar u op 
mikt. Regel 270 geeft u een score, die afhankelijk is van 
de hoogte van het geraakte object (hoe lager de waarde 
van P, hoe hoger u in het scherm bent). Als u de eend 
geraakt hebt, moet P gelijk zijn aan zes, en u krijgt dan 
een bonus van zes punten. De variabele D wordt dan 
op nul gezet. Het programma springt dan hier vandaan 
naar regel 300 als u een eend heeft geraakt. Als dit niet 
het geval is, dan wordt de score (knipperend) door regel 
275 afgedrukt, en het element van de string, die het 
geraakte object bevat, wordt op een spatie gezet, zodat 
het object verdwijnt. Als u niets geraakt heeft (dus de 
GOTO 300 aan het einde van regel 280 wordt niet uitge- 
voerd), dan print regel 290 de kogel. Ongeveer om de 
50 doorgangen van de routine wordt door regel 300 een 
nieuwe eend gegenereerd, als er op dat moment geen 
eend op het scherm is aangekomen. Als dit het geval 
is, wordt de eend van het scherm verwijderd door deze 
regel, de variabele D wordt op nul gezet (de Geen-Eend 
conditie), en er wordt 15 afgetrokken van uw score, 
voordat deze opnieuw afgedrukt wordt. Het laatste ge- 
deelte van regel 330 (GOTO 350) springt over het af- 
drukken van de eend op regel 340. Regel 350 is het 
einde van de hoofd-loop in het programma. 

U zult zich herinneren, dat A$(5) de bewegende barrie- 
res bevat. In 360 wordt T$ gelijk gemaakt aan het laatste 
element van A$(5). Dit element wordt dan aan de voor- 
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zijde van A$(5) toegevoegd op regel 370. Dit is het te- 
genovergestelde van wat er gedaan wordt met de ande- 
re elementen van het A$-array, zodat de barrieres ook 
in tegenovergestelde richting van de objecten bewe- 
gen. Regel 380 print de barriere en 390 stuurt de actie 
terug naar regel 110 waar de hoofd-loop opnieuw be- 
gint. Regels 400 en 420 worden gebruikt als u de barrie¬ 
re geraakt hebt (P is gelijk aan 5, zie voorgaande gedeel- 
te programma), en nadat dit u is meegedeeld gaat het 
programma naar 450 om uw score at te drukken. Als u 
zonder kogels zit (dus variabele B is gelijk aan nul) wor¬ 
den regels 430 en 440 uitgevoerd: ‘U HEEFTGEEN KO¬ 
GELS MEER OVER’. Aan het einde van de spelbood- 
schappen wordt de titelpagina opnieuw afgedrukt, en 
u toetst alles behalve 'n' of ‘N ’ in voor een nieu w spel. 
Hieronder ziet u het programma in actie: 


Sa £ £Sc£±£ it S£i i © ^.«vv 


£ 


En dit is de programma-listing: 

3m so site eos 

35 EMR @ ■ SO TO 5® a 
L.ET 9 = 16: l_ET 
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S8S DRTR "E’’,BIN B81I1000JSXN 0 
©11100S , 16.254, IS,. 40,40,255 
690 DffTR "H",6XN @011100®, BIN © 
0111000,BIN @0011000, BIN 000110© 
0,eiN 00011110, BIN ©0011000, BIN 
000111 ' ' ---- 


11111 , b : 

0 DRTR ! 


i,3£, IS , 255, BIN 


Alphabattle 

In dit ongewone spel bestuurt u een groene helikopter, 
terwijl de Spectrum de besturing heeft over een blauwe 
gevechtsstraaljager. U vecht tegen de Spectrum om 
het bezit van het alfabet. De letters, die u bezit, worden 
afgedrukt aan de linkerzijde van het scherm en de letters 
van de Spectrum aan de rechterzijde. 

Door de ‘5’ en de ‘8’-toets te gebruiken, beweegt u 
horizontaal, met de ‘w’ en ‘z’-toetsen vertikaal. U moet 
uw helikopter voor een niet-knipperende letter van de 
vijand plaatsen. Als u dan de ‘O’-toets indrukt, begint 
deze letter onmiddellijk aan uw zijde te knipperen. De 
vijandelijke letter verdwijnt dan, uw score wordt ver- 
hoogd, en u wordt teruggezet naar de rechterzijde van 
het scherm voor een volgende aanval in de strijd. Merk 
op, dat u meer dan een toets tegelijk in kunt drukken, 
omdat IN gebruikt wordt om het toetsenbord te lezen, 
in plaats van het meer gebruikelijk INKEYI (zie regels 
410 en 420). U kunt dus ook diagonaal bewegen. Terwijl 
u dit alles doet, is de Spectrum met deze zelfde hande- 
lingen bezig om uw letters te stelen. 

Voor de letters gaan staan en op de ‘0’ drukken is een 
manier om een letter te pakken te krijgen. Er is echter 
ook nog een andere methode. Als de blauwe straaljager 
van de Spectrum op de zelfde regel staat als een van 
de niet-knipperende letters, kunt u zelf ook op die regel 
gaan staan, en er dan op schieten met de toets ‘O’. De 
computer probeert ook op u te schieten, dus het ge- 
vecht kan zeer levendig worden. 
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Het spel is afgelopen, als alle letters door een van beide 
partijen gevangen zijn. De computer drukt dan de win- 
nende score af. (U wordt hier trouwens aangeduid als 
de ‘humanoTde’ in de score-regel.) 

Regels 100 tot 150 definieren de grafische tekens (de 
gebruikte letters zijn ‘A’, ‘B’, ‘C’, en ‘D’), deze worden 
ingelezen vanaf de DATA vanaf regel 900. Er worden 
twee arrays gedimensioneerd, P en T, en 22 letters van 
het alfabet worden over deze arrays willekeurig ver- 
deeld en vervolgens afgedrukt. 

De positie van uw helikopter wordt gedefinieerd door 
de waarden van U en P. De vertikale coordinaat een 
positie boven die, waar de laatste letter is afgedrukt. 
De positie van de computer wordt overeenkomstig be- 
paald aan de hand van zijn laatste letter, waarbij de 
variabelen A en T gebruikt worden. Deze beginnen op 
1, zie regel 310. Regels 410 en 420 lezen het toetsen- 
bord, waarbij, zoals hierboven reeds aangegeven werd, 
gebruik gemaakt wordt van defunctie IN. Uw helikopter 
wordt afgedrukt op regel 430. Als u hebt besloten een 
letter te vangen, of op het vijandelijke vliegtuig te schie- 
ten, stuurt regel 440 de actie naar regel 580, waar de 
besturing verder doorgegeven wordt aan een subrouti¬ 
ne, beginnende vanaf regel 1050. Hier wordt, indien 
nodig, uw laser-wapen afgevuurd. Als A in regel 440 
gelijk is aan U, dan gaat het programma verder naar 
regel 700 om de letter te vangen, en wordt uw score 
verhoogd. Als u aan de uiterst linkerzijde van het scherm 
staat, is de variabele P gelijk aan 1, dus de computer 
gaat direct naar regel 700 om deze twee taken te vervul- 


Regel 460 verwijdert het straalvliegtuig van de Spec¬ 
trum van het scherm, en gebruikt de volgende routine 
om de nieuwe positie ervan te bepalen . De variabele 
A, die de vertikale positie van de jet bestuurt, wordt in 
regel 480 veranderd. De variabele T wordt in de volgen- 
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de regel veranderd om de jet dichter bij uw helikopter 
te brengen. Regels 610 en 620 brengen een willekeurig 
effect in de bewegingen van de helikopter. 

Regel 650 print de straaljager opnieuw op zijn nieuwe 
positie en het begin van regel 660 bepaalt, of de jet al 
dan niet op u zal schieten. Als het programma besluit 
een schot op u te lossen, wordt de subroutine op regel 
1000 aangeroepen. Als T gelijk is aan 29, weet de com¬ 
puter, dat hij aan uw zijde van het scherm is, en stuurt 
hij de besturing door naar regel 1100, waar een letter 
van u gevangen wordt. Daarna wordt de zelfde letter 
aan de linkerzijde van het scherm verwijderd. U hoort 
dan een overwinningsmelodie, die gemaakt wordt door 
de subroutine op regel 800, voordat de letter op zijn 
juiste plaats gezet wordt. 

Als de score, die u en de Spectrum tezamen behaald 
hebben, gelijk is aan 22, is het spel tot een einde geko- 
men, en regel 735 stuurt het programma dan naar regel 
1200, waar de resultaten van de ALPHABATTLE bekend 
worden gemaakt. Regel 745 verwijdert de jet van zijn 
oude positie, en reset de waarden van P en U. Daarna 
gaat het programma naar regel 400, zodat het spel op¬ 
nieuw kan beginnen. 

Hieronder de listing van ALPHABATTLE: 
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1320 IF INKEY$="" THEN GO TO 132 


Smashout 

In deze kleurige versie van ‘Breakout’ moet u trachten 
door een stenen muur heen te breken met behulp van 
een scherpe, diamant-vormige bal. Zoals u ziet, als u 
het spelletje speelt, is de grafische ‘A’ gedefinieerd om 
op een steen te lijken. De muur die u moet doorbreken 
ziet er dan ook erg effectief uit. U krijgt 12 ballen om 
op de muur te kaatsen. De bewegingen van uw paddle 
(aan de onderzijde van het scherm) bestuurt u met de 
‘5’-toets (links) en de ‘8’-toets (rechts). De score isdoor- 
lopend zichtbaar, en wordt indien nodig veranderd. Re¬ 
gel 15 zet de BORDER en PAPER op rood, en de INK 
op wit. De grenzen, waarbinnen het spel zich afspeelt, 
worden afgedrukt in regel 20 (de bovenzijde) en in de 
loop op regel 30. Dit speelveld krijgt de kleur groen. (Er 
is natuurlijk geen enkele reden, waarom u zich aan dit 
kleurenschema zou moeten houden. Kleurentelevisies 
reageren verschillend op sommige kleuren, en combi- 
naties die goed werken op de ene TV, kunnen op een 
andere wellicht ongeschikt zijn. Experimenteer hier 
eens mee, en zoek de best geschikte combinatie voor 
uw TV). De variabele S (voor de Score) wordt in regel 
35 op nul gezet, en A en B die de vlucht van de bal 
bepalen, worden beide op 1 gei'nitialiseerd. Regels 40 
en 42 zijn loops, die de stenen (regel 0) en de bal (regel 
42) definieren, hierbij gebruik maken van de DATA-op- 
drachten op de regels 210 en 215. 

De volgende loop, van regel 45 tot 55, print de stenen 
op het scherm. Merk op, dat regel 55 bestaat uit 28 
grafische ‘A’-s. Regel 50 kiest een willekeurig getal om 
de kleur van iedere rij stenen te bepalen. Het tweede 
gedeelte van deze regel controleert, of de gekozen kleur 
niet rood is (dus ongelijk aan 2), omdat rood de stenen 
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de zelfde kleur zou geven als de achtergrond. Als de 
regel ziet, dat de kleur toch rood is , dan gaat het pro- 
gramma terug naar het begin van de regel om een nieu- 
we kleur te vinden. 

Regel 60 bepaalt de startpositie van de bal. De bal wordt 
afgedrukt op positie X,Y en de variabelen, die gebruikt 
worden om de bal te verwijderen (DX en DY), worden 
gelijk gemaakt aan de waarden van X en Y in deze regel. 
Als Y groter is dan 28 of kleiner dan 3, dan heeft de bal 
een van de zijkanten geraakt, en regel 65 stuurt dan het 
programma door naar regel 155, waar de richting van 
de bal wordt omgekeerd (op deze wijze ‘stuitert’ de bal 
dus op de zijkant). 

Als X kleiner is dan twee, dan heeft de bal de bovenzijde 
van het speelveld bereikt, en regel 70 laat de bal dan 
naar beneden stuiteren. Regel 75 kijkt, of de positie, die 
de bal gaat innemen, een steen bevat, en als dit het 
geval is, dan wordt een subroutine aangeroepen, die 
begint op regel 125. Hier wordt een steen-verpulverend 
geluid ten gehore gebracht, en de waarde van B, die 
gebruikt wordt om de Y-waarde te verhogen wordt ‘om- 
geklapt’. Als X kleiner is dan 20, is de bal aan de onder- 
zijde van het speelveld. Regel 80, die de X-waarde van 
de balpositie in de gaten houdt, kijkt of de paddle in de 
juiste positie staat om de bal terug te kaatsen. Als dit 
zo is, wordt het kaatsgeluid gemaakt (BEEP .008,10), 
en de variabele A, die verandering van de positie van 
de bal bestuurt, wordt met -1 vermenigvuldigd. 

Het eerste gedeelte van regel 85 gebruikt de variabelen 
DX en DY om de oude positie van de bal schoon te 
maken, de bal wordt daarna opnieuw op de nieuwe 
positie geprint met gebruikmaking van de variabelen X 
en Y. Regel 90 print de paddle. Merk hierbij op, dat de 
paddle een spatie aan iedere zijde heeft, zodat de oude 
positie van de paddle automatisch weggeveegd wordt 
door de bewegingen van de paddle. De routine in regel 
95 leest het toetsenbord, en gebruikt de INKEYS en de 
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waarde van N om de waarde van N te wijzigen. Deze N 
bepaalt de positie van de paddle. 

De balpositie wordt in regel 105 aangepast. Als A groter 
is dan 21 (regel 110), dan weet de computer dat de bal 
de paddle gemist heeft, en daarna uit het veld gevallen 
is. De subroutine vanaf regel 165 print het nummer van 
de bal, de balvariabele (Q) wordt verhoogd met 1 en 
een ‘NIEUWE BAL’-geluid wordt daarna door regel 175 
gecreeerd. Het aanta| gebruikte ballen wordt in regel 
180 gecontroleerd, en als dit kleiner is dan 12, gaat het 
programma verder op de volgende regel. Als alle 12 
ballen gebruikt zijn, wordt de boodschap ‘SPEL VOOR- 
BIJ’ op het scherm afgedrukt in een aantal verschillende 
kleuren, waarbij een BEEP-loop verschillende geluiden 
produceert bij de flitsende kleuren. Na dit ‘ademloze’ 
display wordt een nieuw spel begonnen. 

Als de maximale waarde van Q nog niet overschreden 
is, wordt er een nieuwe startpositie voor de bal bepaald, 
de onderste regel van het speelveld wordt geheel ‘over- 
geprint’, zodat de oude positie van de paddle verwijderd 
wordt, en de richting van de bal (omhoog en naar rechts, 
of omlaag en naar beneden) wordt bepaald aan de hand 
van de waarde van de variabele M, die in regel 185 
vastgesteld is, en naar variabele B overgezet is in regel 
200. Daarna wordt de besturing teruggegeven naar re¬ 
gel 60, waar het gehele spelletje opnieuw begint. De 
laatste twee regels van het programma - 219 en 215 - 
bevatten DATA-opdrachten voor respectievelijk de ste- 
nen van de muur en de bal. 

Dit is de programma-listing van SMASHOUT: 

10 REM Smashou t 

IS BORDER 2: PRPER 2: INK ?: U 












Dit korte programma is erg effectief en als u de smaak 
ervan te pakken heeft, zal het een echte uitdaging voor 
u kunnen gaan worden. U rijdt op een weg, die bestaat 
uit twee geDRAWde lijnen, die naar de horizon toe naar 
elkaar lopen. U gebruikt de ‘5’-toets (om naar links te 
bewegen) en de ‘8’-toets (om naar rechts te bewegen) 
om op de weg te blijven. De ‘1 '-toets kunt u gebruiken 
om uw snelheid te veranderen. 






Het programma begint met het definieren van een aantal 
variabelen (O, P, 1$, Q, D en R), en stelt de PAPER en 
BORDER in op zwart en de INK op wit. Regel 35 leest 
het toetsenbord voor een ‘5’ of een ‘8’, en vermenigvul- 
digt deze met de snelheid I. In regel 40 wordt P opgeteld 
bij D (die initieel op 0 gesteld is in regel 25) en die ge- 
bruikt wordt om de coordinaten voor de lijnen te bepa- 
len, die met een DRAW-opdracht in de subroutine vanaf 
regel 100 getekend worden. Deze lijnen stellen de weg 
voor. De variabele O is uw horizontale positie op het 
scherm (zie regel 70) en deze wordt berekend met be- 
hulp van de variabele P op regel 45. Uw snelheid wordt 
willekeurig gevarieerd op regel 50, en als P tussen 120 
en 140 ligt, dan wordt het scherm op regel 55 schoon- 
gemaakt, voordat de weg in de subroutine op regel 100 
opnieuw geprint wordt. 

Hoewel het scherm iedere keer opnieuw schoonge- 
maakt wordt en vervolgens de weg opnieuw geprint is, 
werkt DRAW zo snel, dat de ‘nieuwe weg’ vrijwel ogen- 
blikkelijk op het scherm verschijnt. Er treedt slechts een 
minimum aan flikkering op. 

Regel 65 controleert, of u een van beide zijden van de 
weg geraakt heeft, als dit het geval is, dan wordt het 
programma doorgestuurd naar de subroutine vanaf re¬ 
gel 150. Uw voertuig wordt op regel 70 opnieuw afge- 
drukt en de afgelegde afstand (variabele S) wordt ver- 
hoogd met een waarde, die afgeleid wordt van uw snel¬ 
heid, voordat de afgelegde afstand op het scherm wordt 
uitgedrukt. Regel 77 geeft u de mogelijkheid uw snel¬ 
heid te wijzigen (als D gelijk is aan 0), en regel 80 print 
een regel over de breedte van de bovenzijde van het 
scherm, die als een soort snelheidsmeter dienst doet. 
Regel 90 stuurt het programma terug naar regel 35 voor 
de volgende seconden van uw rit. De subroutine van 
regel 100 tot regel 140 gebruikt PLOT en DRAW-op- 
drachten om de weg op het scherm af te drukken. 

Als u dit programma nog wilt verbeteren, kunt u user-de- 
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En zo ziet het programmascherm er uit: 



Norway Panic 

Als u 3-D Drive een beetje onder de knie heeft, dan kunt 
u uw geluk beproeven met een ander autosport-pro- 
gramma, Norway Panic genaamd. In dit programma rijdt 
u met uw auto in Noorwegen door een reeks tunnels 
en muren en tussen bergen door. U ziet de muren naar 
u toe komen in een grate bocht, en u moet trachten met 
de bocht mee te sturen als de muren dichterbij komen. 
Met dit programma duurt het een beetje langer, voordat 
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u leert om de grafische weergave te ‘zien’ als een weg 
en wegzijden, maar als u dit eenmaal voor elkaar heeft, 
dan zult u het een uitstekende test vlnden, om met de 
‘5’- en ‘8’-toets uw stuurkunsten te oefenen. 

Het array A$, dat in regel 120 gedimensioneerd is, bevat 
de negen verschillende posities van de muren, die, ter- 
wijl ze naderbij komen, verschillend van onderlinge af- 
stand en grootte worden (door de veranderingen in het 
perspectief). De variabele T (regel 70) bepaalt uw start- 
positie voordat de muren naar beneden toe op het 
scherm afgedrukt worden in de B-loop (van regel 90 tot 
regel 130). Uw score, S, wordt in regel 107 verhoogd, 
en regel 120 leest het toetsenbord (voor een ‘5’ of een 
‘8’). De gelezen waarde wordt omgezet in een element 
van de muur, die afgedrukt wordt en de waarde van T. 
Hierbij zorgt het programma er wel voor, dat de waarde 
van T nooit groter wordt dan 21, om er voor te zorgen, 
dat de muur altijd op het scherm blijft. 

In regel 140 wordt onderzocht of de variabele T tussen 
13 en 9 ligt. Als dit het geval is, bent u verongelukt, en 
wordt het programma voortgezet op regel 200, waar 
uw score afgedrukt wordt, en u een nieuw spelletje aan- 
geboden krijgt. Als u echter nog niet verongelukt bent 
na een doorgang van de B-loop, dan wordt de variabele 
I (die in regel 5 op de waarde 1 gezet was) gelijk gemaakt 
aan de negatieve waarde van I (dus -1 verandert in 1 
en 1 verandert in -1). Deze waarde bepaalt, welke PA- 
PER/BORDER/INK-combinatie gebruikt zal worden 
voor de volgende weg, die u moet berijden. De combi- 
naties met een zwarte omgeving en gele muren stellen 
wegen voor, die tussen de bergen door lopen, de andere 
combinaties zijn wegen in de Noorse buitenlucht. Als u 
dit programma overmeesterd heeft, dan kunt u bijvoor- 
beeld de hoogste score vast leggen, of een manier om 
de snelheid te veranderen. Wellicht de beste wijze om 
deze laatste wijziging in te voeren, is het toevoegen van 
een STEP in de B-loop. 
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is de programma-listing: 

1 REM Norway Rani 
5 LET i =1 
7 BORDER 4-: INK 0 

10 DIM a$<3,10> 

30 FOR a =1 TO 3 
30 RERD ai(r' 

40 NEXT r 

42 DRTR 

43 DRTR 

44 DRTR 

45 DRTR 
47 DRTR 
43 DRTR ' 

49 DRTR ' 

50 DRTR ' 

51 DRTR ' _ 

~ tST 1=1 


atia) 

A 


90 FOR b = 1 TO 12 
100 PRINT AT a + bjt;a* tINT (Cb/1 
3) + .51 1 

105 BEEP 1/S,b _ 

107 LET s=s+l: PRINT RT 0,0;S 
110 PRINT RT a+b,0;" 


121 PRINT RT 0,20;t 
L30 NEXT b 

L40 IF t > 14 OR to THEN < 


BORDE 









Death Race 2000 

Kunt u de gevaarlijke groene gluiper-kruiper ontlopen, 
en door Death Race 2000 ontsnappen, voordatugegre- 
pen wordt? Dit programma zal u de waarheid leren! Het 
programma tekent een rechthoekig doolhof op het 
scherm, met u aan de linkerzijde en de voomoemde 
gluiper-kruiper ergens in het doolhof. U kunt de ‘5’- en 
‘8’-toetsen gebruiken om naar links en rechts te bewe- 
gen, en de ‘w’- en ‘z’-toetsen voor onder en boven. 
Hierdoor kunt u het kleine mannetje (het figuurtje aan 
het einde van regel 240) manipuleren, zodat deze van 
de linkerzijde naar de uiterste rechterzijde van het dool¬ 
hof loopt. 

Op regel 5 wordt de random-getallen -generator inge- 
steld en regels 10 tot 30 zetten de BORDER en PAPER 
op zwart en de INK op geel. Regel 40 zendt de besturing 
naar de initialisatie-subroutine op regel 500, waar de 
DATA, die voor de twee gebruiker-gedefinieerde grafi- 
sche trekken gebruikt worden, opgeslagen is. Zodra de 
initialisatie gedaan is, keert het programma terug naar 
regel 50. Hier wordt een functie gedefinieerd om wille- 
keurige (random) getallen te genereren. Het scherm 
wordt schoongemaakt in regel 55, zodat de PAPER- 
kleur uit regel 30 in werking treedt, en de twee variabelen 
X (het getal, dat gebruikt moet worden in functie A om 
de willekeurige gaten in het doolhof te produceren) en 
S (U begin-score, die in regel 245 met 16 verlaagd 
wordt, als het programma aan het einde van een door- 
gang van de hoofd-loop) worden gei'nitialiseerd. 

Regel 100 print een solide gele balk aan de bovenzijde 
van het scherm, de loop van regel 110 tot 130 print 
balken naar beneden over het scherm in cyaan (regel 
120), daarbij is de rechterzijde van het scherm ook weer 
geel (regel 125). Regel 140 completeert de ruwe achter- 
grond voor het spel met een solide balk aan de onder- 
zijde van het scherm. 

Functie A wordt nu gebruikt om op willekeurige plaatsen 



op het scherm gaten te printen in de solide balken. Dit 
zijn de plaatsen, die u moet gebruiken (en die de gluiper- 
kruiper gebruikt) in uw adembenemde race naar de an- 
dere zijde van het scherm. Regels 190 tot 220 geven 
een waarde aan u (de horizontale start-coordinaat) en 
P (deze variabele krijgt de waarde 1, omdat het man- 
netje op de meeste linker positie in het scherm moet 
starten). 

Regel 235 bekijkt of de gluiper-kruiper en het mannetje 
op dezelfde plaats staan. Als dit zo is, dan heeft de 
gluiper-kruiper toegeslagen, en gaat het programma 
naar regel 400. Na een korte melodie uit de ‘gluiper-krui¬ 
per Overwinnings Symfonie’ wordt u meegedeeld, dat 
u verloren heeft. De rest van de hoofd-loop van regel 
230 tot 315 kijkt naar wat u ingetikt heeft, en verandert 
aan de hand hiervan de positie van het mannetje. 

‘U heeft de Death Race gewonnen’ is de boodschap, die 
u op regel 360 te zien krijgt. Op regel 365 wordt gecon- 
troleerd, of u de hoogste score verbeterd heeft, als dit 
zo is, dan wordt de variabele H, waarin de hoogste score 
is opgeslagen, veranderd in uw laatste score. De regels 
370 en 375 printen de score en de hoogste score. Merk 
hierbij op, dat de lengte van de stringversie van de score 
(LEN STR$ S) gebruikt wordt om de print-output te po- 
sitioneren. Regels 380 en 390 wachten totdat u uw han- 
den van hettoetsenbord heeft afgehaald (380), en daar- 
na totdat u weer een toets heeft ingedrukt om een nieu- 
we race te starten (vanaf regel 55). Als u erg veel zelfver- 
trouwen heeft in uw mogelijkheden, om dit spelletje te 
winnen, dan kunt u het veranderen, zodat het meer dan 
een gluiper-kruiper bevat. 

Dit is de programma-listing van Death Race 2000: 

5 RANDOMIZE 
7 LET h =0 
10 BORDER 0 
20 INK 6 
30 PRPER 0 
4-0 GO BUB 500 
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530 FOR b = ( 
54-0 READ c 
550 POKE Vi 
560 NEXT b 
570 NEXT a 
580 RETURN 


TO 7 

5 CHft* s 14-4-+a.= +1), c 


Clone Crazy 

Een zombie heeft zichzelf 19 maal gecloond, en er zijn 
nu 20 kwaadaardige zombies op pad om u te grazen 
te nemen. U zit gevangen in een rechthoekig gebied in 
Zombieland, en de topografie van het gebied laat u zien, 
dat er hier behalve uzelf en de zombies, een aantal put- 
ten in de grand zitten. 

De zombies hebben alle twee dingen gemeen: ze heb- 
ben een zeerslimme, ingebouwde vaardigheid om men- 
sen op te sporen, en ze hebben een aan het maniakale 
grenzende haat tegen mensen. Deze 20 waanzinnige 
zombies zijn er dus allemaal op uit, uw leven snel en 
doeltreffend te beeindigen. Er is echter een lichtpuntje: 
door hun blinde, waanzinnige haat tegen u zijn de zom¬ 
bies zeer beperkt in hun gezichtsvermogen. Dit kan uw 
redding zijn! 
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Zoals u zich herinneren zult, zijn er een aantal putten in 
de grond in dit gebied van Zombieland. De ingebouwde 
vaardigheid van de zombies om mensen op te sporen, 
laat verstek gaan op het gebied van putten. Lok dus 
een zombie in put en hij stort hulpeloos naar beneden. 
De beste methode om te ontsnappen is dus uw voordeel 
te doen met het slechte gezichtsvermogen van de zom¬ 
bies, en ze in een put te lokken. Dit kunt u doen door 
zo te lopen , dat er een put tussen u en de zombie in 
zit. Denk er echter wel aan, dat u 20 belagers heeft, dus 
terwijl u in de buurt van een put staat om een zombie 
in de val te laten lopen, is het mogelijk, dat een andere 
zombie u te pakken krijgt. 

U kunt naar links, naar rechts, onder of boven bewegen, 
en - als u zeer moedig bent - kunt u ook stil blijven 
staan. De zombies bewegen horizontaal, vertikaal en 
diagonaal. U begint iedere ronde van Clone Crazy met 
vier levens en een complete groep van 20 zombies. U 
krijgt 1 punt voor iedere zombie, die u in een put weet 
te lokken, en 6 bonus-punten, ais u het voor elkaar krijgt, 
om alle zombies te vernietigen. 

Iedere keer dat u overleeft, wordt het land opnieuw ge- 
tekend, met een nieuwe kolonie zombies, en met minder 
putten. Als u in een put valt, door een zombie opgegeten 
wordt, of van de rand van het land valt, bent u een leven 
kwijt. Vier van zulke blunders en u bent ‘overleden’. 
Het programma houdt de hoogste score bij, dus u kunt 
de eerst komende vijf jaar of zo trachten de beste score 
te verkrijgen. U kunt over zombieland lopen met detoet- 
sen ‘a’ (omhoog), ‘s’ (omlaag), ‘k’ (links) en T (rechts). 
Met iedere andere toets stopt u met lopen, en staat u 
op die plaats stil. 

Na het instellen van de random-getallen-generator op 
regel 1 wordt een array gedimensioneerd dat alle zom¬ 
bies bevat. De variabele RAND wordt op 0.1 gezet (regel 
15), en de besturing gaat dan naar regel 9000, waar een 
subroutine de grafische tekens voor de putten, de zom- 



bies en uzelf maakt. In regel 9100 wordt de BORDER 
op blauw gezet, de PAPER op geel en de INK-kleur op 
zwart. Daarna krijgt u de gebruiksaanwijzing te zien, 
waarop u kunt aflezen welke toetsen u kunt gebruiken. 
Op regel 9200 krijgt u de boodschap ‘Druk een toets in 
om te starten’ te zien, waarna een PAUSE 0-opdracht 
het programma laat wachten totdat u een toets indrukt. 
De RETURN in regel 990 stuurt het programma terug 
naar regel 20, waar het aantal levens, dat u kunt krijgen, 
op 4 gezet wordt. De gebruikte variabele is MEN, en de 
inhoud hiervan is 1 minder dan het aantal levens dat u 
nog heeft, dus als MEN=0, dan heeft u nog 1 leven 
over. De variabele SCORE wordt op nul gezet en andere 
variabelen, die het programma gaat gebruiken, worden 
gei'nitialiseerd (regel 30). 

Het adres 23560 wordt met een 0 gePOKEd. Dit adres 
bevat de waarde van de laatst-ingedrukte toets, en het 
POKEn met een 0 betekent, dat deze toets-indruk weg- 
gegooid wordt. Regel 100 stuurt het programma naar 
de subroutine vanaf regel 1000 die het zombieland te- 
kent. De rand wordt getekend in regel 1010, en de dub- 
bele loop (I en J) vanaf regel 1020 plaatst de putten op 
het scherm. Het aantal putten wordt bepaald door de 
waarde van de variabele RAND in regel 1040 en is ook 
afhankelijk van de waarde, die gegenereerd wordt door 
de RAND op die regel. 

Nadat uit deze subroutine is teruggekeerd, wordt door 
regel 110 de besturing overgegeven aan de subroutine 
op regel 3000, die de zombies op het scherm plaatst, 
daarna alle zombies telt (begin van regel 3050) en de 
zombies bestuurt vanuit het array Z (laatste twee delen 
van 3050). Vanuit deze subroutine wordt teruggekeerd 
naar regel 120, die daarna de subroutine vanaf regel 
2000 aanroept. Deze subroutine plaatst het mannetje 
(u dus) op het scherm. De uitgebreide serie ‘IF 
SCREEN®...’-regels worden gebruikt om te bepalen, of 
de positie, waar het mannetje geplaatst wordt niet direct 


70 



naast een zombie of een put is. Als dit niet gedaan zou 
worden, dan zou u wel eens door een zombie gegrepen 
kunnen worden, of in een put lopen, voordat het pro- 
gramma werkelijk begonnnen was. 


SCORE: as HOOG:37 



Als u naar dit programmavoorbeeld van zombie kijkt, 
dan ziet u, dat het aantal levens, dat u nog over heeft, 
aangegeven wordt door het aantal mannetjes, dat in de 
rechter bovenhoek staat, direct boven het land. 

De regels 130 tot 150 plaatsen deze mannetjes op het 
scherm, regel 160 print de score bovenaan het scherm, 
en de hoogste score ziet u midden boven het land. Dit 
wordt verzorgd door regel 170. 

U zult zich herinneren, dat in regel 40 het adres 23560 
met de waarde 0 gePOKEd was, om de input-buffer 
van het toetsenbord schoon te maken. Nu we hier in 
het programma zijn aangekomen, verwachten we, dat 
u een toets indrukt, die een bepaalde actie voor het 
programma aangeeft. Dit zijn de toetsen ‘a’, ‘s’, ‘k’ en 
T. Als u dit doet, dan geeft een PEEK van adres 23560 
(zeals op regel 200) aan, welke toetsen u ingedrukt 
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heeft. Voordat de computer op deze informatie reageert 
(regels 210 tot 240), wordt eerst uw huidige positie op- 
geslagen in de variabelen TX en TY. Deze variabelen 
worden gebruikt om uw positie schoon te maken, in het 
verloop van het programma (regel 450). Als u geen van 
de vier toetsen heeft ingedrukt, dan springt regel 250 
over de rest van de routine heen, die uw positie contro- 
leert en u opnieuw print. Regel 260 bekijkt even vlug, 
of u niet zo dom bent geweest om over de rand heen 
te stappen, en regel 270 bekijkt of de plaats waar u naar 
toe wilde nog vrij is. Als de regel iets vindt op uw nieuwe 
positie, dan bent u er geweest, en de routine vanaf regel 
4000 laat u een dramatisch 'Son et lumiere’-display zien 
om uw stommiteit nog eens te benadrukken. Als u de 
test op regel 270 wel doorkomt, dan wordt uw mannetje 
op regel 280 op de nieuwe positie afgedrukt. 

De routine van regel 300 tot regel 490 wordt uitgevoerd 
totdat de variabele NUM (verhoogd in regel 400) groter 
wordt dan de waarde van de variabele GO (die oor- 
spronkelijk ingesteld was op de waarde 4 in regel 30, 
en die veranderd wordt door regel 485). Deze gehele 
routine bevat de kwade geest achter de bewegingen 
van de zombies. Een bijbehorende routine, van regel 
500 tot regel 530, wordt aangeroepen door regel 410 
als de SCREEN$-test uitwijst, dat er een lege positie 
gevonden is. Als het aantal zombies, dat nog in leven 
is (de informatie hierover straat in de variabele LEFT), 
gelijk wordt aan nul, dan heeft u alle zombies vernietigd 
en krijgt u een bonus-score (regel 8000 tot 8050). Dit 
wordt nog eens bevestigd door regel 470. De waarde 
van de variabele RAND wordt verlaagd, dit betekent dat 
u in de volgende ronde minder putten op het scherm 
te zien krijgt. Het aantal putten op het scherm wordt 
verwerkt door regel 1040. 

Als de zombie-routine afgelopen is, dan stuurt regel 305 
de besturing terug naar regel 200, waar het gehele pro- 
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ces weer opnieuw begint. De loop vanaf regel 7000 print 
de zombies, met daarbij een kleine muzikale ondersteu- 
ning (regels 7020 en 7040). Als het aantal levens, dat u 
nog over heeft (variabele MEN, zie regel 7060) gelijk is 
aan nul, dan gebruikt de computer de routine vanaf regel 
7070 om de hoogste score, indien nodig, aan te passen, 
en om u de mogelijkheid van een nieuw spelletje aan 
te bieden. Als u ‘n’ intikt, om aan te geven, dat u niet 
meer wilt spelen, dan wordt door regel 7090 de INK, 
BORDER en PAPER op startwaarde gezet, zodat het 
daarna makkelijker is om het programma op uw scherm 
uit te listen, of om een ander programma in te toetsen. 
Als u een nieuw spel wilt spelen (het antwoord ‘f wordt 
in regel 7080 gelezen), dan gaat de besturing terug naar 
regel 25, die er voor zorgt, dat uw hoogste score HI, 
niet op nul wordt gezet. 

Eventuele veranderingen die u aan het programma aan 
kunt brengen, kunnen bijvoorbeeld de te gebruiken 
toetsen veranderen. Dit kunt u doen, door regels 210 
tot 240 aan te passen (waar de numerieke waarde van 
de laatst-ingedrukte toets opgehaald wordt). Als u dit 
doet, moet u ook de instructies op de regels 92150 tot 
9180 veranderen. Om meer of minder putten te genere- 
ren, kunt u de initiele waarde van variabele RAND op 
regel 15 en regel 7063 veranderen. Om het veranderen 
van het aantal putten aan het einde van iedere ronde 
van het spel te veranderen, moet u regel 8006 aanpas- 

De gebruikte USER-DEFINED grafische tekens zijn de 
‘A' (het mannetje), die ‘B’ (voor de zombies) en de ‘C’ 
(voor de putten). 

Dit is de programmalisting van Clone Crazy. 


73 


















4-<30 LET : 


tfl , is; "SCORE: ' 

4.70 LET ief . _ _ - _ 

THEN GO TO 8000 

480 FOR n=l TO 10: BEEP 0.01,11: 
NEXT n 

485 LET go =1+INT (Isft/E) 

430 GO TO 305 
530 PRINT RT ty,. tx; " " 

.Si0 it PRINT RT zy,zxj FLASH 1.; IN 

'520 LET z (zombie,1) =zx; LET z (I 

°525 e BEEp Z 0.02,30-U f t 
530 GO TO 305 
100® PAPER 6: CLS 

1010 PLOT 4,4: DRRW 248,8. ORRU 
0,159: DRflU -243,0: DRRU 0.-153 
1020 FOR i=2 TO 20 
1030 FOR j=l TO 30 

1040 IF RNDjrand THEN GO TO I860 
1050 PRINT RT i.j; INK 1; “O" 

1080 NEXT j: NEXT i 
1100 RETURN 

£000 LET px=INT £RND*13+S> 

2010 LET py=INT (RND*17*53 

2020 IF SCREENS <py,px3 o" " THE 
N GO TO 2080 

2021 IF SCREEN* <py-l,p 
THEN GO TO 2808 

2022 IF SCREENS fpy.px- 


e+1: PRINT RT 


HEN GO TO 28o_- 

2025 IF SCREENS Spy*1,2X3 
HEN GO TO 2008 

2026 IF SCREEN® (py~l,PX+ 

THEN GO TO 2800 

2027 IF SCREENS (py.px+i) 

HEN GO TO 2000 

2028 IF SCREENS <Py+1,PX+_. .. 
THEN GO TO 2000 

2030 PRINT RT py,px;"S" 

2100 RETURN 

3000 FOR j=2 TO 20 

3020 LET i =INT <RND*30+i> 

3030 IF SCREENS £j,i3<>“ " THEN 


305© LET left = te 
,1) =i : LET z fle f 
3060 NEXT j 


FLASH 1; 
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9005 POKE USR "fl"+5,BXN 00010100 

•3006 POKE USR ■■R"+6 ) BIN 00100010 

9007 POKE USR M fl"t7iBIN 00000000 

9010 POKE USR "B".BIN 00000000 

9011 POKE USR "B"+1j BIN 01100110 

9012 POKE USR "B"+2,B1N ©1100110 

9013 POKE USR "B"+3,B1N 00000000 

9011 POKE USR ■B-+4-..B1N 00011000 

9015 POKE USR " B" 4*5 , B IN 01000010 

9016 POKE USR "B"+6,BIN 00111100 

9017 POKE USR "B"+7,B1N 00000000 

9020 POKE USR •■C",0 

9021 POKE USR "C"+1,BIN 00111100 

3022 POKE USR "C"+2,BIN 01111110 

9023 POKE USR "C"+3,BXN 01100110 

902* POKE USR "C" +*,BrN 01100110 

3025 POKE USR "C"+S,BIN ©1111110 

9026 POKE USR "C"+6,BIN 00111100 

9027 POKE USR "C"*V',S 

910© eOP.OBP. X: P-RPEP S. r?«>; 0: C 
L5 

9110 PRINT RT 1,13;"Clone Crazy" 
9120 PRINT RT 1,13; OUER 1; "_ 


6iSB print RT *,*;■ 
l Uuli 1962" 

91*0 PRINT RT 6,*;' 
3150 PRINT RT 10,*; 
9160 PRINT RT 11,*J 
9170 PRINT RT 12,*; 
9180 PRINT RT 13,*j 
9190 PRINT RT 15,*, 
e toets=STOP" 

9200 PRINT RT 19,2, 
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BORDSPELEN 


Pirandello 

Dit spel is gebaseerd op het in 1880 uitgevonden spel 
Reversi, en wordt ook wel ‘Othello’ genoemd. Reversi 
wordt gespeeld op een schaakbord. In Reversi kunnen 
de spelers hun eerste twee stukken op een willekeurig 
veld van de vier centrale velden plaatsen. In PIRANDEL¬ 
LO is de plaats van de eerste vier stukken vast, en het 
spel start dan ook met deze stukken reeds op het bord 
geplaatst, zoals u bij de uitvoering van het programma 
ook kunt zien. 

Hierna worden de zetten bepaald door een simpele re¬ 
gel: ieder nieuw te plaatsen stuk moet direct aangren- 
zend aan een stuk van de tegenstander geplaatst wor¬ 
den en aan de andere zijde van de reeks van stukken 
van de tegenstander moet een eigen stuk staan. Alle 
stukken van de tegenstander op die lijn veranderen dan 
in ‘eigen’ stukken. De reeks stukken kan in iedere rich- 
ting lopen, zowel horizontaal, vertikaal als diagonaal. 
Als een stuk van een speler een lijn afmaakt in meer 
dan een richting, dan veranderen de stukken in alle rich- 
tingen, waarin een lijn afgemaakt wordt. Het deel van 
het spel is, zo veel mogelijk stukken te veranderen in 
‘eigen’ stukken, zodat als het bord vol is, of als er geen 
zetten meer mogelijk zijn, u het meeste aantal stukken 
op het bord heeft. De winnaar wordt bepaald door een- 
voudig het aantal stukken van beide partijen te tellen. 
Om te laten zien hoe de stukken in PIRANDELLO veran¬ 
deren, moet u zich voorstellen, dat uw stukken X zijn, 
en die van de computer O. Stel, er staat ergens op het 
speelbord een reeks tekens zoals XOOO. Als u nu uw 
stuk aan de rechterzijde van de reeks plaatst (dus 
XOOOX), dan verandert de reeks in XXXXX. De stukken 
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van de tegenstander zijn dan geheel omsloten door uw 
stukken, dus de O-en van de computer veranderen in 
X-en van uzelf. 

Het spel is min of meer gebaseerd op de kennis van 
sterke posities, meer dan op het ‘pakken’ van zo veel 
mogelijk vijandige stukken in een zet. De sterkste posi¬ 
ties in het spel zijn de vier hoeken van het speelbord, 
om dat een stuk, dat in een van deze hoeken geplaatst 
wordt, een iijn aanvalt die zowel horizontaal, vertikaal 
als diagonaal over het gehele bord loopt, terwijl dit stuk 
zelf nooit aangevallen kan worden (de tegenstander kan 
er nooit zijn stukken ‘omheen’ plaatsen). De posities, 
die hieraan grenzen zijn daarentegen waarschijnlijk de 
zwakste posities. Andere sterke posities zijn de velden, 
die direct grenzen aan de centrale vier, die in het begin 
van het spel automatisch opgezet worden. 

De Spectrum heeft een behoorlijk goed inzicht in de 
relatieve sterkte van iedere positie op het bord. Nu is 
het niet de beste strategie om uitsluitend op de sterkte 
van positie te vertrouwen. Het is echter wel zo, dat ken¬ 
nis van de belangrijkste velden veel belangrijker is dan 
welke andere overweging ook, en de computer kan dan 
ook snel beslissen welke van de mogelijke zetten hij als 
volgende zal kiezen. Daarom vertrouwt dit programma 
volledig op de kennis van sterke posities, en geeft daar- 
door een snel en (meestal) intelligent antwoord op ie¬ 
dere zet die u doet. Op deze wijze wordt een snel en 
uitdagend spel gecreeerd. 

Regel 30 stuurt de besturing van het programma naar 
regel 4000, waar de naam van het programma wordt 
afgedrukt, waarna het spel zelf gaat beginnen. De BOR¬ 
DER wordt op 5 ingesteld (regel 4000), de PAPER op 2 
en de INK op 9 (een INK-kieur van 9 wordt automatisch 
ingesteld op een kleur die het meest contrasteert). Het 
woord PIRANDELLO wordt op een aantal verschillende 
kleuren over het scherm afgedrukt, compleet met wat 



muzikale begeleiding. Daarna ziet u de boodschap 
‘Even geduld..', knipperend aan de bovenzijde van het 
scherm, terwijl de arrays gedimensioneerd worden en 
de variabelen gei'nitialiseerd. 

De initialisatie-routine begint op regel 5000. Er worden 
drie arrays geDIMensioneerd. Het array A (regel 5010) 
bevat de positie op het bord, gesorteerd in volgorde 
van relatieve sterkte. Het array D wordt gebruikt tijdens 
het spel, om de lokaties van de stukken op te slaan, die 
door de ene speler in de soort van de andere speler 
omgezet worden. 

De loops van de regels 5030 tot 5070 vullen het A-array 
met het teken met code 146 (dit is de CODE van een 
user-defined vierkantje). Deze CODE wordt gebruikt om 
het bord af te drukken, waarbij met de vierkantjes de 
lege posities aangegeven worden. De volgende loop 
(regel 5080 tot 5110) leest de informatie van de DATA- 
opdrachten goed bekijkt, dan zult u zien, dat hierin de 
getallen van 12 tot 89 in een schijnbaar willekeurige 
volgorde zijn opgeslagen. Deze volgorde is echter, in 
tegenstelling tot wat het lijkt, niet willekeurig. In de volg¬ 
orde wordt de relatieve sterkte van ieder veld volgens 
de programmeur weergegeven. Bijvoorbeeld veld 19 is 
volgens de programmeur een van de sterkste velden, 
dus de computer zal altijd kijken, of hij dit veld met een 
geldige zet kan innemen, voordat hij een andere zet 
overweegt. De minst waardevolle velden zijn de velden 
in de buurt van het einde van de DATA-opdracht op 
regel 5330, dit zijn de velden 28, 78 en 23. 

De volgende loop (van regel 5120 tot 5150) vult het array 
D met de getallen in de DATA-opdracht op regel 5340 
(1,9,10, 11, - 1, -9, -10, -11). Deze getallen geven de 
‘afstand’ aan van een bepaalde positie op het bord, en 
worden gebruikt als de computer stukken bekijkt om te 
zien of deze tijdens een zet veranderd moeten worden. 
Regels 5160 en 5170 plaatsen de openingsstukken op 
hun plaats. Daarna wordt een ‘zet-wijzer’, die gebruikt 




wordt om aan te geven, welke speler er aan de beurt is 
op 145 gezet in regel 5180, hiermee wordt ingesteld, 
dat de computer als eerste begint. 

Als dit is gebeurd, gaat de Spectrum aan de slag bij het 
definieren van de user-defined grafischetekens. Erwor- 
den drie verschillende tekens gebruikt: een vierkant 
voor een lege positie, een ruit (afgedrukt in rood) voor 
een stuk van de computer, en een diagonale lijn (afge¬ 
drukt in wit) voor een van uw eigen stukken. De DATA 
voor de grafische tekens staat in de regels 5350 tot 
5370, met de ‘Z’ aan het einde, die aangeeft, dat alle 
data gelezen zijn. Daarna wordt de BORDER kleur inge¬ 
steld, het scherm schoongemaakt, en het programma 
springt terug naar regel 400 vanaf het einde van regel 
5270. 

Nadat het bord afgedrukt is (regel 400 tot 490) wordt 
de zet-wijzer gecontroleerd. Als deze de waarde 145 
heeft, dan is de computer aan zet. Als dit niet het geval 
is, dan verandert de computer de waarde van variabele 
Y in de waarde 144. Op regel 530 wordt een zet van de 
speler gevraagd, deze zet dient ingetikt te worden als 
een enkel getal van twee cijfers. Zetten boven de 88 of 
onder de 11 worden niet geaccepteerd. 

Als u ziet, dat u geen geldige zet kunt doen, dan kunt 
u dit aangeven door een 0 in te tikken. De computer 
gaat dan naar regel 100 om zijn zet te doen. (Als de 
computer daar ziet, dat hij ook niet kan zetten, dan be- 
kijkt hij in regel 380, of u hiervoor ook heeft aangegeven, 
dat u niet kunt zetten, en als dit het geval is, gaat het 
programma verder op regel 1000, waar het spel beein- 
digd wordt. Vanaf regel 1000 worden de stukken geteld, 
het programma maakt de winnaar bekend, en het spel 
is afgelopen.) Regel 560 zorgt er voor, dat de zet binnen 
de numerieke grenzen is (11 tot 88) en dat het vakje, 
dat u wilt innemen, leeg is (dus ook code 146 bevat). 
Als de zet als legaal is geaccepteerd, dan gaat het pro¬ 
gramma verder vanaf de routine in regel 160, waar de 
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afstanden in array E gebruikt worden, om te bekijken, 
welke stukken van de tegenstander er veranderd moe- 
ten worden. Aan het einde van deze routine, die van 
regel 160 tot 320 loopt, wordt de zet-wijzer opnieuw 
bekeken. Als deze gelijk is aan 144, of als de ‘print-bord- 
flag’ (J, ingesteld in regel 160 en op regel 290 gewijzigd) 
gelijk is aan 1, dan gaat het programma verder op regel 
400, waar het bord opnieuw geprint wordt. Als nog niet 
alle velden bekeken zijn (K in regel 340 is ongelijk aan 
60) dan gaat de computer naar regel 130, waar het zoe- 
ken verder gaat. Als speler net een zet heeft gedaan, 
dan wordt deze regel natuurlijk nooit uitgevoerd. Als 
regel 350 bereikt wordt, dan geeft de computer de mel¬ 
ding ‘ik kan niet’. 

Regel 500 bekijkt de waarde van Y. Als deze 144 is, 
dan weet de computer, dat hij aan zet is. Daarna gaat 
het programma dan terug naar regel 100, waar hij naar 
een zet zoekt (regel 100 tot 150, plus 340). Merk op, 
dat de computer hier gebruik maakt van de informatie, 
die afkomstig is uit de DATA-opdrachten, waarin de 
volgorde staat, waarin de velden bekeken moeten wor¬ 
den. 

U zult zien, dat PIRANDELLO een uitdagend spel is en 
de Spectrum een waardige tegenstander. Als u het spel 
onder de knie heeft, dan kunt u zelf de user-defined 
grafische tekens aanpassen, of u kunt kijken, of het 
veranderen van de volgorde van de getallen in de DATA- 
opdrachten tot een verbeterde strategie kunnen leiden. 
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5370 DflTR "C",255,123,123,123,12 
3,123,123,255,"Z" 

Dammen 

Het volgende, uitdagende spel is dammen. Dit is een 
van ’s werelds meest geliefde bordspelen, en alleen 
schaken is nog populairder. Sommige historici denken, 
dat dammen zelfs een voorloper is van het schaakspel. 
Het is zeker, dat dam-achtige spelen gespeeld werden 
in het oude Egypte, in Griekenland en Rome. Het spel 
is door de eeuwen heen aangepast en geevolueerd, en 
heeft haar huidige vorm in de tweede helft van de zeven- 
tiende eeuw gekregen. Er bestaan dan ook vele regio- 
nale variaties maar het door onze computer gespeelde 
spel ligt erg dicht bij het standaardspel. In het standaard 
damspel wordt er tussen twee tegenstanders gespeeld 
op een bord van 8 bij 8 vakken, meestal op de zwarte 
velden. Om het eenvoudiger op het scherm leesbaar te 
maken, en om het scherm ook leesbaar uit te kunnen 
printen, als u de COPY-mogelijkheid uit het programma 
gebruikt, gebruiken we de witte velden om op te spelen. 
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ledere speler begint met 12 stukken. In deze versie heeft 
u de kleine x-en als stukken, de computer speelt met 
de kleine o-en. Er is echter geen enkele reden, waarom 
u het programma naderhand niet zou veranderen, om 
eigen gedefinieerde tekens te gebruiken. De computer 
begint bovenaan het scherm, en speelt naar beneden, 
terwijl u onderaan het scherm begint. 

U kunt uitsluitend diagonaal bewegen en dus op de 
witte velden spelen. Als er een vijandelijk stuk op een 
diagonaal veld direct voor u staat, en er een leeg veld 
op deze diagonaal is, dan kunt u het vijandelijke stuk 
slaan, door over het vijandelijke stuk te springen (het 
stuk wordt dan van het veld verwijderd) en te landen 
op het lege veld direct daar achter. U kunt meer dan 
een stuk in een zet slaan, als er vanaf het veld, waar u 
geland bent, nog een stuk te slaan is. 

In de meeste spelregels over dammen, is het slaan van 
een steen van detegenstanderverplicht. In deze versie 
van dammen wordt dit niet gecontroleerd. De computer 
slaat echter wel altijd, dus wees eerlijk, en sla wanneer 
dit mogelijk is. 

Het doel van het spel is, alle stenen van de tegenstander 
van het bord te verwijderen, of het voor de tegenstander 
onmogelijk te maken om nog een geldige zet te doen. 
In dit programma zal de Spectrum trachten tot het einde 
toe door te spelen, maar er is een mogelijkheid inge- 
bouwd, waardoor de Spectrum kan zien, dat hij versla- 
gen is. Als hij dit opmerkt, zai hij het spel beeindigen. 
U kunt op ieder punt in het spel opgeven, door 99 in te 
tikken. Als u dit doet, dan zal de Spectrum met veel 
medeleven accepteren, dat hij gewonnen heeft. 

Als u een steen geheel aan de overkant weet te krijgen, 
dan wordt het stuk gepromoveerd tot een DAM. Dit 
wordt in het programma aangegeven, door deze stuk¬ 
ken te laten veranderen in andere grafische tekens. U 
kunt deze tekens eenvoudig veranderen in tekens van 
uw eigen keuze, zoals u straks zult lezen. Een dam heeft 
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een veel grotere mobiliteit dan een normaal stuk, omdat 
hij zowel vooruit als achteruit kan bewegen. Met een 
dam kunt u dus het spel sterk in uw voordeel laten lopen. 
Merk op dat, wanneer u op de laatste rij van het spel 
terecht komt uw steen niet direct als dam gebruikt mag 
worden om zo verder te slaan. De dam geldt pas in de 
volgende zet. De computer weet dit, en laat dit ookzien, 
dooreen steen paste veranderen na de volgende zet. 

U zult zien, dat de computer dit spel behoorlijk snel 
speelt, en met een zekere mate van intelligentie en in- 
zicht. Dit betekent, dat het spel u een redelijke tegen- 
stander biedt. Om het spel nog aantrekkelijker te ma- 
ken, print de computer iedere zet, die hij in overweging 
neemt, op het scherm, en laat een BEEP horen, als hij 
een zet gevonden heeft, die hij als redelijk aanmerkt. 
De computer zoekt het gehele bord af, veld voor veld, 
beginnend in de linker bovenhoek, dan van links naar 
rechts over iedere rij, en zo tot aan de rechter hoek. Als 
hij een eigen steen vindt, dan kijkt hij, of hij daarmee 
kan slaan. Als hij een zet vindt, waarmee een steen van 
een tegenstander geslagen kan worden, dan doet hij 
deze zet, zonder verder te kijken. Dan print hij het nieu- 
we bord en geeft u de mogelijkheid om uw antwoord in 
te toetsen. Terwijl de Spectrum op zoek is naar een zet, 
bekijkt hij ook, of hij een ‘ veilige’ zet kan vinden. Hiervoor 
gebruikt hij een eenvoudige techniek, die hem in staat 
stelt, een potentiele zet uit te kiezen, die het verplaatste 
stuk niet in gevaar brengt. Daarnaast is er nog een faci- 
liteit, die kijkt, of een stuk, dat aangevallen wordt, be- 
schermd kan worden. 

Nadat het hele bord op deze wijze onder de loep geno- 
men is, en elke, mogelijke zet in een array is opgeslagen, 
wordt er gekeken, of een van de stukken in een enkele 
zet tot dam gepromoveerd kan worden. Als zo’n zet 
gedaan kan worden, dan krijgt deze de voorkeur, omdat 
de Spectrum er een hogere prioriteit aan geeft, een ei¬ 
gen steen tot dam te promoveren, dan een eigen steen 



te beschermen. Als een steen niet tot dam gepromo- 
veerd kan worden, dan kiest de computer een willekeu- 
rige zet uit het array van veilige zetten. Door een wille- 
keurige zet te kiezen uit een array, waarin zetten zijn 
opgeslagen, die de computer alien gelijkwaardig acht, 
kan de computer een reeks spelen afwerken, zonder in 
herhaling te vervallen, zelfs als u dit tracht te forceren 
door een zelfde spel twee maal te spelen. 

Als het spelbord geheel afgetast is, en er geen veilige 
zetten zijn gevonden, dan kiest de Spectrum een wille- 
keurig stuk, en verplaatst dit. Deze zetten zullen slechts 
zeer zelden voorkomen, in het begin of het midden van 
het spel. Als er nog maar een klein aantal stukken op 
het bord over zijn, dan is het mogeijk, dat de Spectrum 
zijn positie hopeloos vindt. Hij geeft dan op, en laat de 
overwinning aan u. 

Zoals reeds vermeld, speelt dit programma redelijk snel, 
omdat voor de meeste zetten slechts een klein gedeelte 
van het spelbord afgezocht hoeft te worden, of - in het 
slechtste geval - het hele bord slechts een maal. De 
snelheid van de respons wordt vertraagd door de re¬ 
gels, die de zetten afdrukken, die de computer in over- 
weging heeft. Deze regels voegen echter zoveel span¬ 
ning toe, dat ze de moeite waard zijn. Als u een spel 
verkiest, dat op maximale snelheid speelt, dan kunt u 
bepaalde regels verwijderen, die later aangegeven zul¬ 
len worden. De snelheid wordt dan werkelijk bijzonder 
hoog. Er zijn ook een aantal commentaarregels, zoals 
‘Goede zet’ of ‘Ik heb er al een!’, die van tijd tot tijd 
opduiken. Deze zinnen vertragen het programma ook 
enigszins, en kunnen daarom ook verwijderd worden, 
indien uw voorkeur uitgaat naar een zeer snelle speler. 
Zoals u zult zien .vergaat het u waarschijnlijk net zoals 
vele anderen, die reeds met dit programma gespeeld 
hebben. De meeste mensen vinden beide versies de 
moeite waard, en maken daarom twee versies: een ver- 
sie met alle commentaarregels en het afdrukken van de 



zetten, en een supersnelle versie. Daarna kunnen ze 
zelf kiezen, welke versie ze willen spelen. 

Na de random-getallen-generator op regel 50 te hebben 
ingesteld, gaat het programma verder naar regel 1070, 
waar een subroutine begint, die de variabelen initiali- 
seert. Als u deze sectie van het programma nader bestu- 
deert, dan ziet u dat de PAPER en BORDER op blauw 
gezet worden, en de INK op geel, voordat het scherm 
schoongemaakt wordt. Ook hier geldt, dat u deze kleu- 
ren het beste zelf kunt kiezen. De woorden ‘Even ge- 
duld...’ verschijnen aan de bovenzijde van het scherm 
gedurende een betrekkelijk kort initialisatie-proces. (U 
kunt in overweging nemen, om in ieder programma, dat 
een wat langere initialisatie heeft, zo’n regel in te voe- 
ren.) 

Regel 1080 geeft de waarden van de stukken aan. de 
namen van de variabelen zijn als voIgt: C is een stuk 
van de computer, H een stuk van de Humanoide (u dus), 
CK is een dam van de computer, HK een dam van uzelf, 
E is een leeg veld en B een zwart veld. Deze waarden 
worden in deze regel aan de variabelen toegewezen, 
en in het hele programma wordt daarna aan deze namen 
gerefereerd. Dit is zo gedaan, opdat u zelf de grafische 
tekens van de verschillende stukken kunt wijzigen, door 
alleen deze regel aan te passen. Als u bijvoorbeeld, ge- 
bruiker-gedefinieerde tekens zou willen gebruiken, dan 
hoeft u alleen 144 te gebruiken voor de H (144 is de 
CODE van user-defined grafisch teken ‘A’), daarna 145 
voor C, etc. 

Regel 1090 zet de variabele OF om de situatie ‘van het 
bord af weer te geven. De computer heeft in zijn ge- 
dachten namelijk een onzichtbare rij van dummy-velden 
random het bord, zodat hij weet waar de rand van het 
bord is, en dus niet probeert om een slag te doen, waar 
nog geen stuk heeft gestaan. 

Als OF gedefinieerd is, dan wordt het Q-array (dat alle 
stukken bevat) gedimensioneerd, en ieder element van 
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het array wordt gevuld met de dummy-waarde. De vol- 
gende loop (regel 1110 tot 1130) gebruikt de DATA in 
regels 1140 tot 1230 om de velden op het bord te vullen 
met de juiste waarden. Alle elementen van het Q-array, 
die hier geen waarde krijgen, behouden hun oude waar- 
de, -99, zodat de computer weet, dat dit velden zijn, 
die buiten het speelbord liggen, en dus niet gebruikt 
mogen worden. 

Regel 1240 is een loop, die het N-array (gedimensio- 
neerd in regel 1090) vult met getallen, die de mogelijke 
zetten aangeven van ieder veld naar een ander veld 
zonder te slaan. De computer weet, dat een slag-zet 
verkregen kan worden, door de inhoud van deze velden 
te verdubbelen. In regel 1260 worden de variabelen, die 
het aantal geslagen stukken voor beide partijen aange¬ 
ven, op nul gezet, CO voor de computer, op HU voor 
de speler. 

Nadat we terugkeren op regel 90 (vanaf regel 1260), 
zien we, in de REM-opdracht de tekst: ‘Verwijder de 
volgende regel om de Spectrum niet de eerste zet te 
geven’. Als u zelf een openingszet wilt doen, dan verwij- 
dert u eenvoudig regel 100. U hoeft geen enkel ander 
gedeelte van het programma te wijzigen. De Spectrum 
is niet de sterkste dammer in de wereld, dus het minste 
wat u kunt doen, is hem de eerste zet laten houden. 
Het programma roept in haar loop van regels 110 tot 
1140 een aantal subroutines aan, regel 150 laat het ge- 
heel weer opnieuw beginnen. De verschillende subrou¬ 
tines voeren de volgende vitale gedeelten van het pro¬ 
gramma uit: 

680 print het bord uit 

850 accepteert een zet van de speler 

680 print het bord opnieuw uit na een zet van de speler 

160 start het zoeken van een zet door de computer 

We beginnen met het bekijken van het zoekproces door 
de computer naar een geldige zet, omdat dit het meest 
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belangrijke en interessante gedeelte van het program- 

Regel 160 dimensioneert het array S, dat gebruikt wordt 
om veilige zetten voor de computer op te slaan, terwijl 
hij op zoek is naar een zet om een steen van de tegen- 
stander te slaan. SC, de ‘veilige-zetten-teller’, wordt in 
regel 170 op nul gezet, waarbij A (de variabele, die ge- 
bruikt wordt om aan te geven, welke zet er in overweging 
genomen wordt) op 89 ingesteld wordt, een meer dan 
het element 88, dat de linker bovenhoek van het speel- 
veld aangeeft. Regel 180 verlaagt A met een, om zo het 
linker bovenveld aan te geven, en regel 190 kijkt, of dit 
veld een normale steen van de computer bevat (dus het 
programma kijkt, of de waarde van het stuk op het veld 
gelijk is aan C, de waarde van een steen van de compu¬ 
ter), of een dam van de computer (waarde CK). Regel 
200 zet B (die aangeeft, welke potentiele zet er vanaf 
dit veld overwogen wordt) op nul. Als A kleiner of gelijk 
is aan 29, dan weet hij, dat hij op de onderste regel aan 
de kant van ajn tegenstander is aangekomen, en dus 
alleen nog maar omhoog kan spelen (waarden 3 en 4 
van B geven een zet naar beneden aan), dus het pro¬ 
gramma bekommert zich daarna niet meer om zetten 
als B is 1 of B is 2. Regel 210 telt 1 op bij B (die dan 1 
wordt, of 3 als een stuk op de onderste regel wordt 
overwogen), en regel 220 zet M (die door deze hele 
procedure heen het veld aangeeft, waar de computer 
naar toe zou willen zetten, terwijl A het veld aangeeft, 
waar de computer van vandaan zou willen zetten) op A 
plus het element van het array N, dat aangewezen wordt 
door de waarde B. Als M groter is dan 88 of kleiner is 
dan 11, dan weet de computer, dat het stuk van het 
bord af staat, en hoeft hij dus niet verderte kijken. Regel 
240 is een van de regels, die weggelaten kunnen wor- 
den, als u maximale snelheid wilt. Deze regel drukt de 
zet af, die overwogen wordt. 

Onze volgende regel vindt een mogelijkheid om een 




Steen van de tegenstander te slaan. Als het veld, een 
steen van de mens bevat (H) of een dam van zijn tegen¬ 
stander (HK), en het veld daarachter is leeg (E), dan 
weet de computer, dat hij een steen kan slaan, en dan 
wordt de besturing direct doorgegeven aan regel 320, 
waar de tekst ‘Hebbesl’ in knipperende letters op het 
scherm wordt afgedrukt. Als u een programma wilt, dat 
het spel op maximale snelheid afwikkelt, dan kunt u 
daartoe de regels 330, 340 en 350 verwijderen, deze 
regels zijn alleen in het spel gezet, zodat de computer 
kan opscheppen over zijn overwinningen. 
Teruggekomen in het voornaamste gedeelte van het 
programma, voert het volgende gedeelte van de com- 
puter-zet-routine een zoekopdracht uit naar een veilige 
zet. Hiertoe bekijkt hij de velden, die liggen direct na 
het veld, waar hij een stuk naar toe wil verschuiven. Als 
hij door het doen van deze zet zijn eigen stuk of een 
van zijn andere stukken niet in gevaar brengt, dan wordt 
dit bevestigd door het programma. Het programma 
voert namelijk een uitgebreid aantal IF-opdrachten uit, 
die er alien op gericht zijn, een veilige zet te vinden. Als 
een zet al deze IF-opdrachten op deze regel doorkomt, 
dan gaat de Spectrum naar een routine op regel 470. 
De computer kan maximaal 10 veilige zetten opslaan 
(omdat het array, dat deze zetten opslaat, maximaal 10 
elementen kan bevatten, en in de praktijk is gebleken, 
dat dit vrijwel altijd voldoende is). De teller van de veilige 
zetten SC, die op regel 170 de waarde nul heeft gekre- 
gen, wordt nu met een verhoogd, zolang deze teller ten 
minste kleiner is dan 10. Regel 480, een andere regel, 
die u voor maximale snelheid kunt verwijderen, print de 
tekst ‘Veilige zet ... naar...’, en laat een BEEP horen, 
om de veilige zet er uit te doen springen. Regel 490 is 
nogal interessant. Deze regel converteert zowel het 
‘van’-veld als het ‘naar’-veld in een enkel tweecijferig 
getal, dat in het volgende element van het array S opge- 
slagen wordt, zodat dit element later, indien nodig, ge- 



decodeerd kan worden om de zet uit te voeren. Regel 
490 keert terug naar de hoofdlijn van het programma, 
maarterwijl we op dit punt zijn, kunnen we even kijken, 
hoe de veilige zet gedaan wordt. Als er geen vijandelijke 
steen geslagen is, dan gaat de computer naar regel 500. 
Als hij ziet, dat SC gelijk is aan nul, dan weet hij, dat er 
geen veilige zet gedaan kan worden en gaat naar regel 
550 om een willekeurige zet te kiezen. Als SC groter is 
dan nul, dan 'valt' het programma door de volgende 
regels en wordt er een van de gecodeerde getallen uit 
het SC-array gekozen, deze zet wordt dan opgeslagen 
in de variabele XC in regel 510. Het ‘van’-veld wordt uit 
het gecodeerde getal gehaald in regel 520, en het ‘naar’- 
veld in regel 530. Regel 540 stuurt het programma ver- 
der naar regel 650, waar de zet gedaan wordt. 

Als we terugkeren naar het eerste segment van het pro¬ 
gramma, dan komen we op regel 270. Hier wordt B 
verhoogd. De elementen 1 en 2 van het array N bevatten 
zetten die gemaakt kunnen worden door iedere steen 
op het bord (behalve door de stenen op de onderste 
rijen) en de elementen 3 en 4 bevatten uitsluitend dam- 
zetten. Als B, de teller die de elementen uit het array N 
selecteert die voor de zet gebruikt worden, kleiner is 
dan zijn maximum (2 voor een gewone steen, 4 voor 
een dam), dan keert het programma terug naar regel 
210, waar B verhoogd wordt. Het programma gaat nu 
opnieuw zoeken naar een zet. Regel 280 kijkt of ieder 
veld van het bord gecontroleerd is. Zo niet, dan wordt 
er teruggekeerd naar regel 180, waar de veldteller A 
met een verlaagd wordt, waarna het zoeken verder gaat. 
Als echter alle velden getest zijn (dus A is niet groter 
dan 11, zoals in regel 280 getest wordt), dan gaat het 
voorprogramma verder naar de volgende twee regels, 
waar een potentiele dam gezocht wordt. Een flag FL, 
wordt gelijk gemaakt aan nul, en de computer bekijkt 
de elementen van het array, die de velden voorstellen 
uit de rij voor de rij, waar de computer een dam kan 
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maken. Als de computer hier een steen van zichzelf 
vindt, dan stuurt hij het programma naar een subroutine 
vanaf regel 1270. 

Als deze subroutine een zet vindt, die een dam kan 
maken, dan wordt in de subroutine de flag FL op een 
gezet, hetgeen de besturing van het programma verder 
stuurt naar regel 650, waar de werkelijke zet gedaan 
wordt. 

Als zo’n zet niet mogelijk is, dan springt regel 310 over 
het gedeelte heen, dat een steen van de tegenstander 
slaat (waar we straks nog even naar kijken), en gaat 
naar regel 500. Houd nu in gedachte, dat de computer 
de volgende strikte hierarchie van mogelijkheden aan- 
houdt: 

• Kan ik slaan, en indien ja, kan ik verschillende malen 
slaan? 

• Kan ik een dam halen? 

• Kan ik een zet doen, die het verplaatste stuk of elk 
ander stuk niet in gevaar brengt? 

• Kan ik een legale zet doen? 

Als het antwoord op een van deze vragen ‘ja’ is, dan 
wordt de zet gedaan, en wordt het nieuwe speelbord 
afgedrukt, klaar voor de zet van de tegenstander. Als 
het antwoord op de eerste vraag ‘nee’ is, dan wordt de 
tweede vraag gesteld, enzovoorts. Als het antwoord op 
de laatste vraag ‘nee’ is, dan beeindigt de computer 
het spel. (Er is nog een andere vraag, die iedere keer 
gesteld wordt, als het bord opnieuw afgedrukt wordt. 
Deze vraag luidt: ‘Heeft een van de spelers 12 stenen 
meer dan de andere speler?’. Als het antwoord op deze 
vraag ‘ja’ luidt, dan gaat het programma naar een rou¬ 
tine, die het einde van het spel aankondigt, en het spel 
wordt afgesloten. Deze vraag, die niet geheel in onze 
hierarchie van vragen past, wordt hier uitsluitend voor 
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de volledigheid vermeld, zodat u eenvoudiger kunt be- 
grijpen, hoe de computer tot een zet komt). Deze wijze 
van ordenen van zetten is de meest voorkomende in 
intelligente spelprogramma’s, vanaf de meest eenvou- 
dige videospelletjes zoais Space Invaders, tot de meest 
gecompliceerde, zoais Schaken. 

Als de computer regel 500 heeft bereikt, dan was het 
antwoord op de eerste twee vragen ‘nee’. Om de derde 
vraag te kunnen stellen (‘Kan ik een veilige zet doen?’) 
hoeft de computer alleen maar naar de teller SC te kij- 
ken, die het aantal veilige zetten bevat. Als deze teller 
op nul staat, zijn er geen zetten gevonden, die het etiket 
‘veilig’ verdienen, dus het antwoord op deze vraag luidt 
dan ook ‘nee’. We hebben al gezien, hoe het ‘veilige- 
zet’-systeem werkt, dus nu kijken we naar het gedeelte 
van het programma, waar de computer zijn toevlucht 
zoekt tot zijn laatste reddingsmogelijkheid: het doen 
van een willekeurige zet, zoais dit gebeurt vanaf regel 
550. 

Hier wordt de variabele SC opnieuw gebruikt, uitslui- 
tend om te voorkomen, dat we een andere variabele 
moeten initialiseren. Deze variabele moet namelijk altijd 
nul zijn, anders zou deze routine niet uitgevoerd worden 
(zie ook regel 170). Regel 550 telt 1 op bij de waarde 
van SC en kiest een willekeurig veld tussen 1 en 88. Als 
dit veld geen steen van de computer of een dam van 
de computer bevat, dan gaat het programma naar regel 
630, waar zolang er minder dan 300 veldnummers ge- 
probeerd zijn, de besturing teruggezonden wordt naar 
regel 550 om het opnieuw te proberen. 

Als echter het gevonden veld een C of een CK bevat, 
dan kijkt de routine van regel 570 tot 620 of dit stuk 
bewogen kan worden. Als een zet gevonden is, dan 
stuurt regel 610 het programma naar regel 650, waar 
de zet uitgevoerd wordt. Als er geen zet gevonden 
wordt, dan probeert het programma via regel 630 op¬ 
nieuw een veld. Als er na 300 pogingen nog geen zet 
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gevonden is, dan beeindigt de Spectrum het program- 
ma via regel 640. Voordat we kijken naar het gedeelte 
van het programma, dat de menselijke tegenstander 
een zet laat doen, gaan we nog een klein stukje terug 
in het programma, naar het gedeelte dat begint op regel 
370. Deze regel wordt uitgevoerd nadat een stuk van 
de tegenstander is geslagen. De voorgaande regel heeft 
de score van de computer (CO) met 1 verhoogd voordat 
de regel 370 de bord-print-routine aanroept, die het 
verplaatste stuk laat zien, de nieuwe score van de spec¬ 
trum, en - natuurlijk - een leeg veld waar het Spectrum- 
stuk eerst stond. U zult zich herinneren, dat A het veld 
was waar de computer vandaan kwam, en M het veld 
waar hij naartoe ging. A wordt nu gelijk gemaakt aan 
het veld, waar de computer naartoe gesprongen is, en 
de regels van 390 tot 460 kijken, of er nog een sprang 
gemaakt kan worden, zodat er verschillende stenen in 
een zet geslagen kunnen worden, dan voert het pro¬ 
gramma ze uit, en het bord wordt opnieuw geprint. Hier- 
na wordt opnieuw bekeken of er nogmaals geslagen 
kan worden. Als de hele reeks van slagen gedaan is, 
dan geeft de Spectrum de beurt over aan de menselijke 
tegenstander, die dan zijn of haar zet kan doen. 

Het gedeelte van het programma, dat de menselijke 
zetten behandelt, is eenvoudig. U doet een zet, door 
het veld aan te geven, waar vandaan u een steen wilt 
verplaatsen, door het nummer van het veld op de zijde 
aan te geven, gevolgd door het nummer van het veld 
in de breedte. Tik beide getallen aan elkaar in (zoals 
‘31’). Daarna drukt u de ENTER-toets in, gevolgd door 
de twee getallen, die het veld aangeven, waar u naartoe 
wilt bewegen. Dezet wordt dan gedaan, het bord wordt 
opnieuw afgedrukt, en als u een steen geslagen heeft, 
wordt u gevraagd, of u nogmaals kunt slaan. Als u ‘nee’ 
antwoordt, dan bedenkt de computer zijn zet. Zegt u 
daarentegen ‘ja’ op deze vraag, dan vraagt het pro¬ 
gramma u om een nieuw veld, waar u naartoe wilt sprin- 
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gen (omdat de computer het veld, waar u vandaan komt 
natuurlijk al weet, daar bent u immers zojuist naar toe 
gesprongen). 

Het gedeelte van het programma, dat de zet van de 
menselijke tegenstander accepteert, begint op regel 
810, waar een REM-opdracht aangeeft, dat u het spel 
op dit punt kunt beeindigen, door 99 in te toetsen. Als 
u een ‘1 ’ intoetst, dan geeft u daarmee te kennen, dat 
u het scherm naar de printer wil laten kopieren. Na deze 
print-out van het scherm te hebben gemaakt, wordt u 
opnieuw om uw zet gevraagd. Nadat de zet uitgevoerd 
is in het array, dat de velden van het bord bevat (in regel 
910) worden er twee loops gebruikt om uit te vinden of 
een van de stenen van de speler tot dam gepromoveerd 
moet worden (regels 920 tot 950). Als dit het geval is, 
dan wordt het symbool van dit stuk overeenkomstig 
aangepast. U zult zich herinneren, dat een steen niet 
als een dam mag bewegen in het spel, totdat de tegen¬ 
stander een zet heeft gedaan. Op dit moment worden 
dan ook alle stukken van de computer, die tot dam ge¬ 
promoveerd zijn in de laatste zet van de Spectrum in 
een dam veranderd. We doen dit hier, in het midden 
van het gedeelte van het programma, dat de menselijke 
zet behandeld, zodat we er dan zeker van kunnen zijn, 
dat de computer op geen enkele manier vals kan spelen 
met zijn nieuw-gecreeerde koning. Wij nemen trouwens 
aan, dat hoewel het stuk van de menselijke tegenstan¬ 
der onmiddellijk in een dam veranderd wordt, de tegen¬ 
stander niet vals zal spelen door het stuk direct daarna 
te verplaatsen. Er is in het programma geen enkele voor- 
ziening getroffen om te voorkomen, dat u vals speelt, 
maar het hele spelletje stelt natuurlijk niets voor als u 
dit wel doet, omdat de Spectrum er nooit van zou dro- 
men om vals te spelen. 

Nu zijn we op regel 960 aangekomen, waar de computer 
het verschil bepaalt tussen het veld, waar u vandaan 
kwam, en het veld, waar u naar toe wilt gaan. Als dit 
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verschil niet kleiner is dan 12, dan heeft u een steen 
geslagen, en de computer zal dit (twee van de drie keer) 
bevestigen met een commentaar, dat gegenereerd 
wordt in regel 970 tot 990. Na de eventuele opmerking 
wordt het slaan van een steen altijd begeleid door een 
stijgende toon, die gegenereerd wordt in regel 995. 
Daarna wordt de score van de tegenstander (u dus) met 
1 verhoogd (variabele HU, in regel 1000), het geslagen 
stuk wordt van het veld verwijderd (door de tweede 
opdracht in regel 1000) en het bord wordt opnieuw ge- 
print, voordat (in regel 1030) de tegenstander de kans 
krijgt om nog een steen te slaan. Als hij dit niet doet, of 
geen steen geslagen heeft, dan gaat het programma 
terug naar de hoofdloop. Als hij echter wel verder wil 
slaan, dan wordt in regel 1060 het oude ‘naar’-veld ge- 
vuld met het nieuwe ‘van'-veld, en stuurt het program¬ 
ma naar regel 860, waar een nieuwe 'naar’ opgevraagd 
wordt. 

We hebben al naar de rest van het programma gekeken, 
dat de initialisatie bevat, en de routine ‘Kan ik een dam 
halen?'. Het enige gedeelte van regel 680 tot 780, dat 
het bord uitprint. Dit gedeelte van het programma legt 
zichzelf uit. Merk regel 770 op, die de return naar het 
hoofdprogramma overslaat, als de mens (HU) of de 
computer (CO) teller gelijk is aan twaalf. 

Dit is het bord aan het begin van het spel, en een korte 
tijd later in het spel, waarbij de Spectrum van boven 
naar beneden speelt. 
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THEN 





0 PRINT TAB 6, BRIGHT 1; INK 
1S3*56?B" 

B FOR F = 80 TO 10 STEP -10 
0 PRINT TAB 5; BRIGHT 1; FX10; 
0 FOR G = 1 TO B: PRINT CHP.$ ©( 
) ; : NEXT G 

0 PRINT F/10: NEXT F 
0 PRINT TRB 6; BRIGHT 1; INK 


THEN RETUR! 
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LET FL=1: R 


LET M=13 


LET fi=S6 
ETURN 
132® IF ®{26>=< 
LET fl=26: LET 
ETURN 

134.® RETURN 


LET M=15 


Boter, kaas en eieren 

Boter, kaas en eieren is een zeer bekend spelletje, waar- 
bij u en uw tegenstander om beurten een symbool (kruis 
of cirkel) op de lege posities van een drie-bij-drie rooster 
plaatsen, waarbij getracht wordt een rij van drie gelijke 
symbolen te maken. Dit mag zowel horizontaal, verticaal 
als diagonaal gebeuren. De speler, die de rij maakt, is 
de winnaar. Het spelletje is al zo vaak geanalyseerd en 
bestudeerd, dat er zeer zelden verrassingen zijn bij het 
spelen ervan. In plaats van een voorspelbaar program¬ 
me, waarbij de speler op z’n best kan gelijkspelen, maar 
vaak ook verliest, is er door de auteur een programma 
geschreven dat een onvoorspelbare, maar intelligente 
partij speelt. Het programma geeft u de mogelijkheid 
om zelf te beginnen, of de computer te laten beginnen 
(de beslissing, wie het eerste mag zetten, wordt geno- 
men in regel 50). Behalve het bezetten van het midden- 
veld zijn de zetten van de Spectrum moeilijk te voorspel- 
len (behalve natuurJijk als hij een rij van drie af kan ma¬ 
ken, of als hij u moet blokkeren om een rij te maken). 
Als RND in regel 50 groter is dan 0,5, dan beslist de 
computer, dat hij als eerste zet, en gaat hij na een pauze 
naar regel 90, waar het programma doorgestuurd wordt 
naar regel 700. Hier begint een subroutine, die het bord 
uitprint. Bij het terugkeren uit deze subroutine gaat de 
computer naar de subroutine vanaf regel 430, waar be- 
keken wordt, of iemand een winnende zet gedaan heeft. 
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Deze routine, die alle mogelijke winnende posities na- 
gaat, gaat verder tot aan regel 550. 

Nadat uit de ‘winnende zet’-routine is teruggekeerd, 
kijkt de computer naar het centrale vlakje, veld nummer 
5. Als hij ziet, dat deze positie leeg is, dan neemt hij 
deze positie in en gaat hij daarna direct naar regel 60, 
waar eerst de subroutine aangeroepen wordt, die het 
bord print. Daarna kan de tegenstander zijn zet intoet- 

Als deze eenvoudige zet niet gemaakt kan worden, dan 
geeft de computer de boodschap ‘Even geduld...’. Hij 
zoekt dan naar een zet, die hem direct de overwinning 
geeft bij de eerste maal, dat de regels 140 tot 280 uitge- 
voerd worden, en als er geen winnende zet gevonden 
wordt, dan kijkt hij, of een potentiele winnende zet van 
de tegenstander geblokkeerd kan worden. Als deze zet- 
ten niet gevonden worden, dan kiest hij maximaal 20 
willekeurige zetten, omdat hij ergens moet zetten. Als 
hij geen zet kan vinden, dan gaat hij (van regel 350 tot 
380) ieder veld afzonderlijk controleren, om te zien, of 
alle velden bezet zijn. Als hij inderdaad ziet, dat hij dan 
nog geen zet kan doen, dan weet hij, dat alle velden 
gevuld zijn. Hij weet ook, door de uitvoering van de 
‘winnende-zet’-subroutine, dat u noch hijzelf gewonnen 
heeft, dat het spel gelijk geeindigd is. Na een aantal 
korte tonen en een boodschapo (regel 410 en 590 tot 
600) wordt het programma dan automatisch herhaald. 
De subroutine, die de zet van de tegenstander uitvoert, 
loopt vanaf regel 620. Hierbij worden uw zetten ingele- 
zen met behulp van INKEY$, dus u hoeft geen ENTER 
in te toetsen, nadat u uw keuze heeft gemaakt. Merk 
op hoe het gehele spel binnen een eindeloze loop van 
regel 60 tot regel 100 wordt uitgevoerd. Hierbij wordt 
eerst het bord afgedrukt en daarna een zet van de speler 
gevraagd, het bord weer afgedrukt, de computer aan 
zet gelaten, enzovoorts, totdat het spel beeindigd 
wordt. Het voordeel om op deze wijze te werken, met 
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het programma als een eindeloze loop en subroutine 
aanroepen naar de verschillende onderdelen van het 
programma is, dat nu verschillende delen van het pro¬ 
gramma eenvoudig en overzichtelijk aangepast kunnen 
worden, zonder dat daardoor de samenhang binnen het 
gehele programma verstoord wordt. 

Als u de speelsterkte van het programma wilt verbeteren 
(hoewel ditten koste gaat van de ‘onvoorspelbaarheid’ 
van het programma), dan kunt u het ‘aftasten’ van de 
velden in regel 290 e.v. in een vooropgestelde volgorde 


10 REM BQTER KRSS EN EJEREN 
20 DIM R(9) 

30 BORDER 1; jCNK 7: PAPER 1: C 

.3 
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EEP .05,. X: BORDER RND*7: NEXT X 
618 RUN 

620 REM ZET URN SPELER 

630 PRINT RT 1,1; FLUSH 1; "Uw X 

et..." 

64.0 LET fl*=INKEY$ 

““ « OR THEN GO 


650 IF R$ < ' 
TO 64.0 


720 PRINT RT 6,5 


BEEP .05,10 
750 IF fi(B)=1 THEN PRINT " O 
BEEP .09,50 

760 IF RfB)=2 THEN PRINT " X 
BEEP .05,-3 

770 IF B=3 THEN PRINT RT 6,5; 
5 6 •*; 

7B0 IF B=6 THEN PRINT RT 10,5 


S10 RETURN 


Beginners Schaken 

In 1978, toen schakende computers nog een zeldzaam- 
heid waren, speelden lezers van het Roemeense week- 
blad Magazinul een schaakpartij tegen een computer, 
de Felix C-256. Het programma was gedurende twee 
voile jaren ontwikkeld door Vioreal Darie van het Insti- 
tuut voor Computer Techniek in Boekarest, Vioreal 
noemde zijn programma Astro-64. Felix deed een zet, 
en de lezers werden uitgenodigd, om een goede tegen- 
zet in te sturen. De meest populaire zet werd in Felix 
ingevoerd, en zijn antwoord werd in de volgende uitgave 
afgedrukt. 

Ondanks de 600 uur, die er in de ontwikkeling van het 
programma gestopt waren, speelde Felix niet zo heel 
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erg sterk, en hij werd dan uiteindelijk ook verslagen door 
de lezers van Magazinul. Een schaak-expert zei, dat het 
programma soms bijzonder sterke zetten deed, maar 
op andere momenten ‘als een beginner’ speelde, en 
zelfs elementaire fouten maakte. 

Zoals de titel van het programma en het verhaaltje over 
Felix u al hebben laten zien, gaat die zelfde kritiek ook 
op voor ons programma, ‘Beginners Schaken’. Het 
speelt geen goede partij schaak en moet eenvoudig te 
verslaan zijn, maar het is om verschillende redenen toch 
in dit boek opgenomen. 

Schaken is altijd een uitdaging geweest voor program- 
meurs. In de onschuldige dagen voor de micro-compu¬ 
ters heerste veelal de mening, dat het schaken door 
een computer als bewijs door kon gaan voor de stelling, 
dat computers een zekere mate van intelligence bezit- 
ten. Om met het enorme aantal mogelijkheden rekening 
te kunnen houden dat bij een schaakspel op kan treden, 
is een schaakspel dan ook nauwelijks te vergelijken met 
een programma, dat Dammen of Boter, kaas en eieren 
speelt. Er zijn ongeveer 10 12D mogelijke zetten in een 
partij van 40 zetten, een getal dat ongeveer gelijk is aan 
het aantal atomen in het heelal! Het programmeren van 
een computer om met dit aantal mogelijkheden reke¬ 
ning te houden, is dus een geweldige uitdaging. 

Er zijn zeer weinig schaakprogramma’s in BASIC gepu- 
bliceerd. Het feit dat een schaakprogramma kan wor- 
den geschreven in BASIC, dat binnen en redelijke tijd 
zijn zetten doet, is al een belangwekkend feit. Er is ook 
geen twijfel, dat het bekijken van dit programma fasci- 
nerend is, zelfs als het u nooit laat zien, hoe u beter kunt 
leren schaken. Het programma speelt zeer snel. Het 
zoekt, sorteert en slaat zijn stukken'in minder dan 4 
seconden en doet meestal na 6 tot 15 seconden een 
zet. Zodra de bordposities meer ingewikkelder worden, 
duurt dit wat langer, maar nooit meer dan 40 seconden. 
Na de listing van het programma vindt u een variatie, 



waarbij het programma tegen zich zelf speelt. Het is 
fascinerend om te zien, hoe de computer om beurten 
met zwart en wit speelt, en het geeft u een goede mo- 
gelijkheid om inzicht te krijgen in de zwakheden van het 
programma dat u hopelijk tot verbetering ervan zult in- 
spireren. Het programma is opzettelijk in z’n geheel in 
modulaire vorm geschreven, om het mogelijk te maken 
een stuk programma te vinden, dat zich met een be- 
paald stuk op het bord bezighoudt. Het is dan ook mo¬ 
gelijk om het programma stap voor stap naar uw eigen 
inzicht te verbeteren. Het feit, dat Felix zelf maar slecht 
schaken kon, werd in 1978 al als groot nieuws gezien, 
Het is daarom misschien verrassend dat 10 jaar na de 
publikatie in 1949 van het eerste boek over het program- 
meren van een computer om te schaken (Programming 
a Computer for playing chess, door Claude Shannon) 
de eerste, werkelijke schakende computer pas ver- 
scheen. In 1960 kregen Alex Bernstein en drie van zijn 
collega’s bij IBM het voor elkaar om het spel te laten 
lopen op een IBM 704. Ondanks deze relatief late start, 
zijn erthans een'behoorlijk aantal schaakprogramma’s 
beschikbaar, waaronder verschillende zeer goede ver- 
sies voor de ZX Spectrum. 

Maar schaken is, zoals gezegd, een bijzondere uitda- 
ging voor een programmeur. Als u dit programma een 
beetje bestudeerd heeft, dan heeft u gelijk al een veel 
beter begrip van hoe een spel-programma ontwikkeld 
kan worden. Dan bent u beter in staat om te waarderen 
hoe echte schaakmachines werken, en kunt u ze naar 
uw hand zetten, door een volledig eigen schaakpro- 
gramma te schrijven. Ik heb een aantal ideeen gebruikt, 
die fundamenteel zijn bij het schrijven van bordspelen 
in dit programma, en het moet voor u niet moeilijk zijn 
om andere programma's te bedenken, waar deze tips 
handig van pas kunnen komen. 

De eerste beslissing, die ik bij de ontwikkeling van dit 
programma heb genomen, was mijn blik te richten op 
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een realistisch doel. Voordat ik dit programma schreef, 
zat ik eens te worstelen met een vroege versie van het 
damprogramma. Ik probeerde te ontdekken, hoe ik de 
computer een meervoudige slag kon laten vinden. Tre¬ 
vor Sharpies (die dit boek samen met mij geschreven 
heeft) stelde voor, dat ik een programma zou schrijven, 
dat meervoudig slaan eenvoudig zou ‘vergeten’. Hij gaf 
aan dat, omdat het programma niet bijzonder sterk 
speelde, de kans, dat de menselijke tegenstander de 
mogelijkheid voor meervoudig slaan aan zou bieden, 
zeer klein was, zodat het programma hier niet naar hoef- 
de te kijken. Later ontwikkelde ik een subroutine, die 
het probleem oploste. Claude Shannon, de man die het 
boek over computerschaak in 1949 schreef zei, dat er 
ongeveer 19 120 zetten mogelijk waren in een spel van 
40 zetten. Shannon voegde hieraan toe, dat een snelle 
computer ongeveer 10 90 jaar nodig zou hebben, om alle 
mogelijke zetten te beoordelen, voordat hij de eerste 
pion zou verplaatsen. 

Ik besloot, dat 10 90 jaar een beetje lang was en dat 40 
maal 10 90 jaar mijn geduld wel uit zou putten. Een uitge- 
breide zoekactie in het programma was dus duidelijk 
niet mogelijk, zelfs als ik de programmeer-kennis had 
om deze zetten op een of andere manier te beoordelen 
en de juiste uit te kiezen. 

Hoewel ik geen plannen had om een programma te ma- 
ken, dat iets meer zou kunnen dan de meest essentiele 
mogelijkheden om naar de mogelijke consequenties 
van zijn zetten te kijken, wist ik dat het enorme aantal 
mogelijkheden en combinaties op het eenvoudigste ni¬ 
veau het programma zeer langzaam zou maken. Ik was 
dan ook aangenaam verrast dat het spelen erg snel 
ging, toen ik het programma voor de eerste keer uitvoer- 
de. Ik had natuurlijk wel getracht, het programma op 
optimale snelheid te schrijven. Een programma, dat 
veel-gebruikte subroutines aan het einde van de listing 
heeft staan, heeft de neiging, om iets langzamer uitge- 
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voerd te worden, dan een programma, dat deze juist 
vooraan heeft staan. Dit komt, omdat de computer bij 
de aanroep van een subroutine begint te zoeken bij het 
eerste regelnummer in het programma, en zo verder 
naar beneden, totdat hij de juiste regel gevonden heeft. 
Als de routine in de buurt van het eerste regelnummer 
in het programma is, dan hoeven er minder regels afge- 
zocht te worden. Ik had het gehele programma zorgvul- 
dig gepland, en had het eerste gedeelte geheel op pa¬ 
pier uitgeschreven, voordat ik de eerste toets op de 
Spectrum aanraakte. Dit gaf de mogelijkheid om het 
gehele programma met de hand ‘uit te voeren’. Ik heb 
toen de verschillende programma-onderdelen zodanig 
verschoven, dat de programmastructuurzo logisch mo- 
geiijk was. Het bleek, dat dit de responstijd erg laag 
hield. De eerste twee ideeen van het programma waren 
dus, te mikken op een bescheiden horizon, en de pro- 
gramma-structuur zo te maken, dat de responstijd zo 
weinig mogelijk verhoogd wordt. 

Het volgende belangrijke concept betrof de opbouw 
van het bord. Mijn eerste pogingen voor een computer- 
bordspel maakte gebruikvan een nummeringssysteem, 
dat ik ontwikkeld had naar een idee van A.L. Samuels 
in een artikel in Scientific American (Zie Strachey, C. 
‘Systems Analyses and Programming’, in Readings 
from Scientific American, W.H. Freeman and Co., San 
Francisco, 1971). 

Hoewel dit bevredigend werkte, was er een lange rou¬ 
tine nodig om de zetten, die de speler intikte, te conver- 
teren in getallen, die de computer kon gebruiken. Een 
veel betere oplossing werd me geboden door Graham 
Charlton in 1981 (mede-auteur van The Turing Criterion 
- Machine Intelligent Programs for the 16K ZX81, Inter¬ 
face, Londen 1982), en deze oplossing ligt in het hart 
van het damprogramma in dit boek, en in Beginners 
Schaken. Het gehele bord wordt hierbij in een array 
opgeslagen, en zetten worden gedaan, doorelementen 
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van het array om te wisselen, waarbij de elementen, die 
door een stuk worden verlaten, gevuld worden met de 
CODE van een leeg veld, en de elementen, die het veld 
aangeven, waar het stuk naar toe beweegt, gevuld wor¬ 
den met de code van het stuk, dat bewogen is. Als het 
bord uitgeprint wordt, hoeft de computer alleen maar 
de CHR$ van ieder element van de array uit te printen. 
Het Charlton bord-nummeringssysteem maakt het ook 
eenvoudig om getallen, die door de gebruiker ingetikt 
worden om een zet op het bord aan te geven, te conver- 
teren naar elementnummers in het array, die het betref- 
fende veld weergeven. 

Ik wist voordat ik begon, dat de speler de mogelijkheid 
moest hebben, om de velden op het bord aan te geven 
in de algebra'i'sche notatie, die redelijk standaard is in 
schaakkringen, dus heb ik mijn schaakbord zo ingericht, 
dat dit zo makkelijk mogelijk te regelen was. Dit diagram 
laat de velden op het bord zien, random het bord staan 
de letters en cijfers, die in de algebra'i'sche schaaknota- 
tie gebruikt worden, op het bord zelf staat in ieder veld 
het elementnummer van het array, dat dit veld weer- 
geeft: 


A B C D E F G 
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Het werkelijke voordeel van het Charlton systeem boven 
andere systemen is, dat iedere zet beschreven kan wor- 
den als een eenvoudige optelling bij, of aftrekking van 
het beginveld. Een uitleg kan dit wellicht verduidelijken. 
Stelt u zich voor, dat u een paard heeft op veld 45. Zoals 
u weet, beweegt een paard zich in het schaakspel met 
een L-vormige sprang, eerst twee velden en dan nog 
een, of eerst een veld en dan nog twee. Een van de 
mogelijke zetten voor het paard is van het huidige veld 
(45) naar het veld met nummer 66, en toename van 21. 
Begin op veld nummer 11, tel hierbij 21 op en we krijgen 
32, een volgende geldige sprang voor een paard. Begin 
op 52, tel 21 op, en we krijgen een (geldig) veld 73. De 
acht zetten van een paard vanaf een willekeurige positie 
(neem even aan, dat het paard niet van het bord af 
springt) kunnen gevonden worden door de volgende 
getallen bij het beginveld op te tellen: 


19, -19, 21,-21,8,-8,12,-12 


Op een overeenkomstige manier kunnen de zetten van 
een pion (met uitzondering van de eerste zet, die een 
of twee velden vooruit kan zijn) gevonden worden, door 
eenvoudige 1 op te tellen bij het veldnummer, waar de 
pion op staat. Een pion kan dus geldig bewegen van 
veld 45 naar 46, of van 23 naar 24. Een pion, die een 
ander stuk slaat, beweegt diagonaal over een veld, dus 
een pion kan slaan naar velden met als nummer het 
eigen nummer van de pion + 11 of - 9. Nu we dit weten, 
kunnen we een computer betrekkelijk eenvoudig pro- 
grammeren, om een geldige zet te berekenen vanaf een 
beginveld. Dit is precies wat ik in het programma heb 
gedaan. Als u naar de regels na 2640 in de initialisatie- 
code kijkt, dan ziet u hoe dit gedaan wordt. Eerst wor¬ 
den er (in regel 2650) een aantal arrays geDIMensio- 
neerd, die voor verschillende taken gebruikt worden, 
onder andere een array, dat de verschillende potentiele 



zetten van een stuk vasthoudt. Het array N wordt gevuld 
met data van regel 2870. Als u naar deze regel kijkt, 
dan ziet u dezelfde acht getallen, die we een aantal 
paragrafen terug hebben besproken voor de zetten van 
het paard. Een manier om een paard te laten springen 
(en deze methode wordt, met een aantal beperkingen, 
op een bepaald punt in het schaakprogramma gebruikt) 
is een random getal te genereren tussen 0 en 8, dat 
element van N te testen, om te zien, of dat veld vrij is, 
of een stuk bevat van de tegenstander. Als het veld een 
stuk van de tegenstander bevat, en een aantal tests 
wijzen uit, dat dit veld niet door andere stukken aange- 
vallen wordt, dan kan de zet gedaan worden. Dit is de 
techniek, die de basis vormt van het Beginners Schaak¬ 
programma. Neem even een moment om dit opnieuw 
te lezen en te overdenken. Als u bereid bent om de 
nodige hoeveelheid methodisch werk op u te nemen, 
bent u nu waarschijnlijk wel in staat een eigen schaak¬ 
programma te schrijven, gewapend met alle informatie, 
die u tot nu toe heeft. 

Een programma, dat zijn zetten doet, door eenvoudig 
met een dobbelsteen te gooien, wordt het slachtoffer 
van zelfs de meest eenvoudige beginner. Het genereren 
van zetten moet dus wel enigszins veranderd worden, 
zoals in dit programma gedaan is, maar de zetten 
werken precies zoals hier beschreven is. De array voor 
alle stukken in het programma zijn als voIgt: 

Paard - 2860 tot 2870 
Toren - 2880 tot 2920 
Loper - 2930 tot 2970 

Koningin - 2990 laadt het array Q met de elementen 
van de array’s van de toren en de loper, omdat de zetten 
van de koningin eenvoudig een combinatie zijn van alle 
mogelijke zetten van de toren en de loper. 

Koning - 3000 tot 3010 
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Het volgende array, dat gevuld wordt, S (regel 3020 tot 
3100), bevat het volgende ‘geheim’ van ons program- 
ma. Vele ‘intelligente’ spel-programma’s (zoals Dam- 
men in dit boek) zoeken het bord veld voor veld at, 
beginnend bij de linkerbovenhoek tot aan de rechter 
benedenhoek, waarbij gezocht wordt naar stukken, sla- 
gen en zetten. Mijn beslissing - en deze beslissing is 
waarschijnlijk verantwoordelijk voor de snelheid van het 
programma - was het testen van de velden in een volg- 
orde, die ik het meest geschikt vond voor het schaak- 
spel. De volgorde, waarin de velden bekeken worden, 
staan in de DATA-opdrachten van regel 3030 tot 3100. 
Hier zijn de getallen die u kunt vergelijken met de loka- 
ties op het schaakbord, dat een eindje terug al afgedrukt 
staat: 


4.5 56 35 66 4-7 57 4-5 55 

37 67 35 65 26 76 27 77 

4.4 54 26 76 36 66 17 67 

16 68 34 64 25 75 16 66 


15 65 14 


S3 33 63 23 __ 

32 83 13 72 22 12 62 41 

51 31 61 21 71 11 81 56 


Het programma kijkt altijd eerst naar veld 46, dan 56, 
enzovoorts, totdat als laatste van de lijst veld 58 beke¬ 
ken is. Misschien is het de moeite waard om dit voor 
een ogenblik te bestuderen, omdat deze volgorde zeer 
goed voor verandering in aanmerking komt, als u denkt 
daarmee het spel te verbeteren. Laten we de gedeelten 
van het programma, die we behandeld hebben, nog 
even op een rijtje zetten. We hebben al gezien, dat dit 
programma in het boek opgenomen is, omdat schaken 
een constante uitdaging voor computerprogrammeurs 
is, en hoewel Beginners Schaken niet erg sterk speelt, 
kan het u nogal wat inzicht geven in het programmeren 
van Schaken en soortgelijke bordspelen. Ondanks het 
feit, dat het spel in BASIC geschreven is, speelt het 
programma erg snel. 
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De programma-listing wordt gevolgd door een aantal 
variaties van de eerste tien regels, zodat de computer 
ook tegen zichzelf kan spelen. Dit geeft een fascinerend 
beeld, en het is een uitstekende manier om fouten uit 
het programma te halen (‘debuggen’). U kunt het pro- 
gramma de gehele dag tegen zichzelf laten spelen, om 
te zien, of het op en bepaald punt tout loopt, hetgeen 
aangegeven wordt door het uittypen van een foutmel- 
ding. Het bord-nummeringssysteem, dat we gebruikt 
hebben, is aan de orde geweest, en ik heb verteld, dat 
door dit nummeringssysteem iedere zet van een 
schaakstuk uitgedrukt kan worden als een optelling bij, 
of een aftrekking van het veldnummer, waar het stuk 
nu staat. De mogelijke zetten van een stuk worden in 
een array opgeslagen. Het S-array bevat de volgorde, 
waarin de velden op het bord gecontroleerd worden, 
als het programma op zoek is naar een zet. 

Hier voIgt de lay-out van het programma: 

10- 30 Startinformatie, zorgt er voor, dat CAPS 
LOCK is ingedrukt 

40- 60 Deze drie regels printen het bord opnieuw 

nadat een zet door de computer gedaan is, 
vragen de speler een zet in te voeren, en 
printen daarna het bord weer. 

70-2350 Dit is het belangrijkste gedeelte van het pro¬ 
gramma, waar al het denkwerk uitgevoerd 
wordt. We komen hier later uitgebreid op 
terug. 

2360-2460 Hier wordt het bord opnieuw geprint, en (in 
regels 4210 en 2420) wordt een pion, die 
tot de achterste rij is doorgelopen, in een 
koningin veranderd. 

2470-2560 Dit is de ‘laatste uitweg’ als de koning in de 
gaten heeft, dat het tout loopt. Van hieraf, 
wordt het programma doorgestuurd naar 
regel 2060, waar het spel beeindigd wordt, 



als er geen zet meer gedaan kan worden. 
2570-2630 Dit gedeelte accepteert de zet van de spe- 
ler. De commentaar-subroutine wordt aan- 
geroepen, indien een stuk van de computer 
geslagen is, en kan de speler verschillende 
dingen opgeven aan het programma, zodra 
hij zijn zet heeft ingetikt. Het programma 
verwacht de invoer van de speler in de vorm 
van een letter en een cijfer (zoals A5), aan 
elkaar ingetoetst, om het veld aan te geven, 
waar u vandaan wilt bewegen, en daarna 
een volgende letter en een cijfer om het veld 
aan te geven, waar u naartoe wilt springen. 
Als dit gedaan is (het programma contro- 
leert wel de lengte van de invoer, maar niet 
de geldigheid van de zet!) dan krijgt u de 
volgende keuze-mogelijkheden: 

C - U heeft de computer schaak gezet 

P - U wilt het bord uit laten printen 

X - U wilt van zijde wisselen 

S - U wilt het spel beeindigen 

ENTER - om het spel voort te zetten 

Zodra u uw keuze ingetikt hebt, voeren de regels 2625 

en 2630 uw zet werkelijk uit. 

Dit is het werkende gedeelte van het programma, op 
de subroutine na, die commentaar levert op het slaan 
van een stuk van de computer door de speler, en de 
routine, die aangeroepen wordt, als u van speelzijde 
wilt verwisselen. De rest van het programma is initialisa- 
tie, en bestaat uit het volgende: 

2640 Hier wordt de random-getallen generator 
ingesteld, de flag MM wordt op nul gezet, 
de string A$ (die het eerste gedeelte van 
de zet van de speler bevat, en die schaak 
etc. signaleert) krijgt de waarde ". MM is 
de belangrijkste variabele in het hele pro- 
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gramma. Als de computer een zet vindt, 
dan wordt MM op een gezet. De flag MM 
wordt daarna door de gehele uitvoering van 
het programma gecontroleerd, en alleen als 
de waarde van MM een is, dan stopt de 
computer met het zoeken van een zet. Het 
proces van het zoeken naar een zet wordt 
in totaal maximaal 8 maal uitgevoerd, voor- 
dat de computer besluit, dat hij het spel 
moet beeindigen, omdat hij geen zet heeft, 
die MM van nul naar een omzet. 

2650 Hier worden de arrays geDIMensioneerd. 
Dit is de functie van de arrays: 

A - bevat het bord, het voornaamste array 
R - de zetten van de toren 
B - de zetten van de loper 
N - de zetten van het paard 
Q - de zetten van de koningin 
K - de zetten van de koning 
Z - wordt gebruikt om de zijden te wisselen 
S - volgorde, waarin de velden bekeken 
worden 

T - bevat de plaats van ieder stuk, en wordt 
bij iedere zet veranderd 

2660-2670 Deze twee regels bevatten de variabelen, 
die voor de stukken gebruikt worden. De 
stukken worden trouwens weergegeven op 
het bord doorde eerste letter van hun naam 
(zoals L voor een loper en T voor een toren). 
De computer speelt met zwart van boven 
naar beneden, en de stukken van de com¬ 
puter worden in hoofdletters afgedrukt. Uw 
stukken worden in kleine letters afgedrukt. 
Zo ziet het bord er aan het begin van het 




Merk op, dat de pionnen en het paard de- 
zelfde beginletter P hebben, het paard 
wordt daarom met de letter R aangegeven. 
Ook de koning en de koningin hebben de- 
zelfde beginletter, de koningin heeft daar¬ 
om als letter de Q (Queen) gekregen. 
Zoals u kunt zien, bestaat het bord uit pun- 
ten in plaats van zwarte en witte vlakken, 
en ziet u geen user-defined grafische te- 
kens. De uiterlijke verschijning is bij dit pro- 
gramma namelijk op de tweede plaats ge- 
komen. Als u echter echte schaakstukken 
wilt gebruiken, doe dit dan (en stuur mij, via 
de uitgever, een kopie van het door u ge- 
bruikte programma, omdat ik erg ge'inte- 
resseerd ben!), leder veld wordt aangege¬ 
ven door een letter over de breedte en een 
cijfer over de lengte. Uw koningin staat dus 
op D1 en de konings-loper van de compu¬ 
ter op G8. Dit zijn de variabelen van de stuk- 

Mens - wit: P, R, N, B, Q, K 
Computer-zwart: PB, RB, NB, BB, QB, KB 

2680-3100 De arrays voor de verschillende bewegin- 
gen van de stukken. Deze zijn reeds be- 
sproken. 
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3110 


Zet de PAPER en BORDER op blauw en de 
INK op wit. Verander dit in de kleur die u wilt. 
3120-3210 Deze routine geeft u de mogelijkheid om 
van zijde te wisselen op ieder punt van het 
spel dat u wilt, direct nadat u een zet ge- 
daan heeft. Het wisselen werkt als voIgt: de 
computer doet alsof er een spiegei op het 
midden van het bord geplaatst is, en de 
stukken in deze spiegei gereflecteerd wor- 
den. Een stuk op A2 komt dus terecht op 
A7. Hoewel de stukken van de spelers om- 
gewisseld worden, blijft de computer met 
de hoofdletters en u met de kleine letters 
spelen. U heeft wel elkaar posities geerfd. 
De ‘auto-play’-optie doet eenvoudig een 
omwisseling na iedere zet, en laat ieder 
tweede bord zien (als de stukken weer 
‘goed’ staan), zodat u het spel kunt volgen. 
U zult zien, dat dit omwissel-systeem een¬ 
voudig te begrijpen is, als u er eenmaal aan 
gewend bent. 

3310-3380 Als u een zet doet naar een veld, dat door 
een computerstuk bezet wordt (dit wordt 
gezien door regel 2625), dan gebruikt de 
Spectrum deze subroutine, om bij het slaan 
van een van zijn stukken commentaar te 
geven. Drie van de vier maal laat het de 
BORDER knipperen, en zegt iets als ‘Heb- 
bes!’, en speelt een korte melodie, daarna 
drie treurige noten. De vierde keer laat het 
programma alleen de drie noten horen, plus 
een zeer korte flits van de BORDER kleur 
om zo het slaan aan te geven. 

Voordat we uiteindelijk tot de listing van het programma 
komen, zullen we eerst nog even kijken, wat er gebeurt 
in het programma, terwijl het spel zich afspeelt. Ik hoop 
dat dit u de mogelijkheid geeft, om de werking van het 
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programma geheel te begrijpen, zodat u het eventueel 
kunt wijzigen. 

In regel 70 bevat MM (zoals u al weet) de zet van de 
machine. MM moet na iedere zet op nul gezet worden. 
Als u trouwens zelf als eerste wilt zetten, verwijdert u 
dan de GO TO 60 aan het einde van regel 30. UK telt 
het aantal malen, dat het programma naar een zet ge- 
zocht heeft. Dit is zo gedaan, om het programma er toe 
te bewegen, de koning niet te bewegen zonder een goe- 
de reden, en om het programma aan te sporen, zichzelf 
niet zo snel gewonnen te geven. De volgende regels 
(80 tot 100) volgen de instructies van de speler, die hij 
geeft, nadat hij een zet gedaan heeft. 

Regel 110 dimensioneert het T-array. Door dit iedere 
keer te doen, wordt het array automatisch met nullen 
gevuld, zodat het klaar is om de lokatie van ieder van 
de stukken in op te slaan. U is de variabele die het aantal 
stukken van de computer telt. De boodschap ‘even ge- 
duld...' komt aan de bovenzijde van het scherm testaan, 
terwijl de computer op zoek gaat naar een zet. De rou¬ 
tine in regels 120 en 130 gaat langs alle velden op het 
bord in de volgorde, die aangegeven wordt door het 
array S, waarbij de stukken op deze velden opgeslagen 
worden in de volgorde, waarin ze gevonden worden in 
het array T. De stukken worden dan ook direct geteld. 
De variabele KM is de positie van de koning, deze varia¬ 
bele wordt door de computer gebruikt om zijn meest 
waardevolle stuk te alien tijd bij de hand te hebben. KM 
wordt ingesteld op de lokatie van de koning door regel 
120. Regel 130 sluit de loop af. De variabele U telt het 
aantal stukken op het bord. Als deze kleiner dan 3 is, 
dan geeft de computer het spel op. 

Het programma gaat nu verder op regel 580, waar Z 
gelijk gesteld wordt aan de positie van de koning in KM. 
De volgende routine, van regel 580 tot regel 810, kijkt 
of de koning in gevaar is. Deze controle wordt altijd 
gedaan, ook als u geen ‘Schaakl’ heeft gegeven nadat 
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u uw zet heeft gedaan. Zodra het gevaar gevonden is, 
gaat de computer naar de routine vanaf regel 1710, 
waarhij kijkt, of hij zijn koning in veiligheid kan brengen. 
Terug naar de start van het programma, gaat de com¬ 
puter op regel 150 al zijn stukken na, en plaats de koning 
aan het einde van deze serie, zodat de koning alleen 
wordt verplaatst, als er geen andere zetten meer moge- 
lijk zijn. Hij weet uit de tests van de routine vanaf regel 
580, dat de koning niet aangevallen is, dus is er geen 
reden, waarom hij de koning in gevaar zou brengen, 
door hem van zijn veilige plaats te verplaatsen. 

Regel 170 kiest een stuk uit de reeks van stukken, die 
hij wil verplaatsen, beginnende bij de eerste drie. Dit 
aantal wordt gereduceerd tot 1 als de speler ‘Schaak!’ 
heeft aangegeven aan het einde van regel 170. Als het 
gekozen getal kleiner is dan het totale aantal stukken 
op het bord, dan wordt 1 opgeteld bij de waarde van 
variabele Q, om zo te bepalen, welk stuk van het array 
T als eerste voor een zet gekozen zal worden. 

Regel 190 zet de variabele Z (die door het gehele pro¬ 
gramma heen gebruikt wordt als de ‘van’-lokatie) gelijk 
aan het element van T, dat gekozen is, en het program¬ 
ma springt drie regels vooruit naar een subroutine, die 
begint op regel 230. Een BEEP, die door regel 230 ge- 
produceerd wordt, geeft aan, dat de computer aan het 
werk is. De BEEP klinkt vanaf deze plaats, zodra de 
computer op zoek is naar een zet, zodat u weet, dat 
het programma nog steeds aan de gang is, zelfs als het 
lijkt, dat de Spectrum problemen heeft bij het vinden 
van een zet. 

De volgende vier regels sturen het programma naar een 
specifieke subroutine, afhankelijk van het stuk, dat het 
programma wil gaan verzetten. Van deze subroutine- 
adressen kunt u zien, welk deel van het programma de 
vraag ‘Kan ik slaan?’ door het programma uit laten voe- 
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Koningin - 820 
Toren - 1300 
Paard - 1540 
Pion - 2070 

Regel 280 keert terug naar regel 200, waar de varia- 
bele MM bekeken wordt. Als MM gelijk is aan 1, dan 
gaat het programma naar regel 2310, waar de zet 
gedaan wordt, en terug naar regel 40, die de subrou¬ 
tine aanroeptom hetbordopnieuwte printen. Daarna 
kan de speler zijn zet intikken. Als MM gelijk is aan 
0, dan gaat het porgramma verder naar de volgende 
regel en - als Q kleiner is dan U - wordt het program¬ 
ma voortgezet op regel 180. Hier wordt U verhoogd 
met 1, en het zoeken wordt voortgezet. Als Q niet 
kleiner is dan U, dan betekent dit, dat alle willekeurige 
gekozen stukken nagekeken zijn, en niet konden 
slaan. 

Vanaf dit punt springt het programma naar regel 2180 
(mijn weloverwogen plannen om een duidelijk 
stroomschema voor het programma aan te houden 
werden hier doorkruist door de eisen van de compu¬ 
ter) waar de variabele Q de waarde krijgt van een 
willekeurige getal tussen 0 en 4 (met het dubbele 
gebruik van de RND-functie, zodat de meeste getal- 
len aan de onderkant uitkomen). Dit getal wordt nu 
gecontroleerd, om er zeker van te zijn, dat het niet 
groter is dan het aantal beschikbare stukken. U kunt 
het cijfer 5 in deze rekenkundige uitdrukking vervan- 
gen door een hogere waarde, als u wilt, dat de com¬ 
puter niet op steeds dezelfde, voorspelbare wijze be- 
paalde stukken ontwikkelt. leder getal onder de tien 
is redelijk bruikbaar. Hier wordt dan weer 1 bij opge- 
teld, en Z wordt gelijk gemaakt aan het stuk, dat nu 
gekozen wordt. De adressen van de subroutine ge- 
ven aan, waar de besturing voor de stukken gevon- 
den kan worden: 
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Pion-2140 
Paard -1630 
Loper- 1420 
Toren - 1180 
Koningin - 940 

Koning -1710 (alleen als de koning niet schaak staat 
en het willekeurig gekozen getal is kleiner dan 
0,07. Hiermee wordt voorkomen, dat de koning 
zinloos gaat ‘wandelen’). 

Zodra de computer de relevante subroutine heeft uitge- 
voerd, wordt bekeken, of de flag MM nog steeds nul is. 
Als dit het geval is, en nog niet alle stukken uit het wil¬ 
lekeurig gekozen beginstukzijngecontroleerd, dan gaat 
het programma naar 2180, waar een nieuw beginstuk 
gekozen wordt. Als MM gelijk is aan 1, dan gaat het 
programma naar regel 2310, waar een subroutine de 
zet doet, en keert daarna terug naar regel 40, om het 
bord te laten printen, voordat de speler weer aan de 
beurt is om een zet te doen. De volgende regel kijkt of 
de waarde van de variabele UK groter is dan 8, als dit 
zo is, dan is de gehele routine om een zet te zoeken 8 
maal doorlopen. De computer heeft dan in 8 maal zoe¬ 
ken nog een goede zet kunnen vinden, dus hij geeft het 
spel op. Dit gebeurt in regel 2060. 

De volgende regels maken de werkelijke zet van de 
computer. Regel 2319 verwerpt een zet van een koning 
negen van de tien keer als de koning niet schaak staat, 
door MM weer op nul terug te zetten en terug te gaan 
naar regel 2180, waar een ander stuk gezocht wordt 
om mee te spelen. Regel 2312 wordt aangeroepen als 
het te verplaatsen stuk een pion is. Deze routine kijkt, 
of het programma niet probeert een pion naar achteren 
te verplaatsen, en zorgt er voor, dat die zet niet gemaakt 
kan worden. Als de witte koning op het veld staat, waar 
de computer zijn stuk neer wilde zetten, dan staat de 
tegenstander schaak, dus wordt de boodschap 
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‘SCHAAK!’ afgedrukt op het scherm. De computer gaat 
dan terug naar regel 190, waar een andere slag gezocht 
wordt. Als de gevonden zet al deze 'horden’ heeft door- 
staan (dit is een eenvoudig stuk van het programma, 
dat u zelf kunt wijzigen, als u bepaalde zetten wilt voor- 
komen, of de computer wilt ontmoedigen, een bepaalde 
zette doen), dan doet regel 2315 de zet, en regels 2320 
tot 2330 vertellen u (met gebruikmaking van een op het 
eerste gezicht bijzonder complexe regel, die gebruikt 
wordt om het veldnummer om te zetten in een veldnaam 
dat de zet gedadn is. Regel 2340 keert terug naar het 
begin van het programma, de sectie waar het bord uit- 
geprint wordt. 

Ondanks de routine om gevaar voor de koning op te 
merken, is het programma niet altijd in staat om zichzelf 
uit een ‘Schaakl’-situatie te redden. U kunt zo’n fout 
opvatten als een wens om het spel op te geven (of als 
u tolerant bent, het programma toestaan gedurende een 
zet schaak te staan). Als de computer zichzelf in schaak 
begeeft (een zeer uitzonderlijk geval), dan kunt u ook 
aannemen, dat hij opgeeft. 
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PS THEN LET U=U-i-l: LET T!Ui=S(S») 

: IF fi1S(G55=KB THEN LET KM=S!Q.l 
130 NEXT O: IF U<3 THEN GO TO £ 
080 

14-0 GO TO SS© 

150 FOR 0=1 TO U: IF fi(T(O)}=KS 
THEN LET T(OJ=T(U): LET TiU)=K,1 


250 IF RCZ 


f THEN GO SUB 1300 
if Hii(=NtS THEN GO SUB 154-3 
270 IF R(IJ=PB THEN GO SUB £070 
29® IF B(X)=K THEN PRINT RT 00 
; FLRSH 1;" SchaaK!*',: LET 0=® 
*1: LET MM=0: GO TO 1S0 
3S® IF X+S-iSS THEN GO TO 320 
310 IF RCX+9)<83 RND fl(X+S}>65 
AND RND < < 96 THEN RETURN 
320 IF X-11<11 THEN GO TO 340 
330 IF fi(X-ll)<83 RND fl(X-ll)>8 
5 RND RND <.95 THEN RETURN 
340 LET RD=S 
353 LET RY=1 
360 LET RX=X-i-S ffiY+HD) 

37© IF RX <11 OR RX>BS THEN GO T 
O 400 
360 Li 

390 II ...____ _ _ 

OR RP=B RND RND>.5 THEN RETURN 
400 LET RY=RY+1 
410 IF HY<8 THEN GO TO 360 
420 LET RD=RD+7 
430 IF RD <56 THEN GO TO 350 
440 LET RY=1 
450 LET RX-X+NtRY) 

460 IF RX<11 OR RX >66 THEN GO T 
O 480 

470 IF fl(RXJ=N THEN RETURN 

480 LET RY =RY +1 

490 IF RY<9 THEN GO TO 450 

500 LET RY = 1 

510 LET RX=X+K(RY) 

520 IF RX <11 OR RX >88 THEN GO T 
O 540 

530 IF (RCflX)=K OR RtfiX>=P) RND 
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I LET Y=1 
LET X=Z + BCY+D) 
IF X<11 OR X>S8 


THEN GO TO 


> TO ±4-4© 


1490 LET Y=Y + _ 

1500 IF Y<8 THEN i 
1510 LET D=D*7 
1520 IF D<28 THEN GO TO 1433 
1530 RETURN 
1540 LET Y = 1 
1550 LET X=Z+NtYJ 

1550 IF X < 11 OR X>88 THEN GO TO 
X600 

1570 IF RtX}=42 THEN GO TO 1500 
J-5S0 IF (H(X! >=Q AND R(X)<=RJ OR 
R(X)=P THEN GO SUB 290 
1590 IF MH=1 THEN RETURN 
1500 LET Y=Y+1 

1510 IF Y(9 THEN GO TO 1550 
RETURN 


1550 IF ; 


1700 

1710 

1720 

1730 

1740 

£030 

1750 

1760 


>86 THEN GO TO 

IF R(X> =42 THEN GO TO 1540 
LET Y =Y + 1 

IF R(X)=E THEN GO SUB 230 
IF MH = 1 OR Y >20 THEN RETURN 
GO TO 164© 

LET YK = 1 
LET Z=Kti 

LET X=Z+KtYK): LET X1=X 
IF X<11 OR X>86 THEN GO TO 

> >65 RN£> R 

IF' flfx)Is?'RN d“r“x) <115 THE 

TO 2030 

LET Z=X 

LET Y=0 

LET Y=Y+1 

LET X=Z+N(Y) 

IF X<11 OR X >88 THEN GO TO 


1820 

1830 

1340 

1850 

I860 

1870 


LET D=0 
LET Y=1 
LET X=Z+0(Y4DJ 
IF X<11 OR X >88 THEN GO TO 
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308® DATS 53,33 J 63 ; 23.,?3,52 J 42 J 6 

a 

3090 DRTR 32,83,13,72,22,12,82,4. 
1 

3160 DRTR 51,31,61,21,71,11,81,8 
8 

3110 PAPER 1: BORDER 1: INK 7: C 
!_S : RETURN 

313® FOR 2=11 TO 88: LET ZCZ)=fit 


3150 LET RfZ)=Z(Z+9-X*2J 
3180 NEXT Z 

3170 FOR Z=ll TO 88: LET M=RtZJ 

3180 IF M=P THEN LET fl (Z) =PB 

3181 IF M=PB THEN LET R«Z)=P 

3182 IF M=R THEN LET R(Zl=RB 

3183 IF M=RB THEN LET fi CZ» =R 
3184. IF H=NB THEN LET RtZ>=N 

3185 IF M=N THEN LET R(Z)=NB 

3186 IF M=UQ THEN LET R<Z3=QB 

3187 IF M=QB THEN LET RtZ>=UO 

3188 IF M=KB THEN LET R(Z)=K 

3189 IF H=K THEN LET R IZ J =V,B 

3190 IF H=B THEN LET fl IZ )=BB 

§200 ™ EN LET R ‘ Z)=B 

3210 RETURN 

3310 LET COMMENT = INT «RND*4-J : BO 
RDER RND*5+2: SO SUB 3330+10*COM 


334.0 PRINT RT 0,0 d gedaan": 

GO SUB 3370: RETURN 
3350 PRINT RT ®,©;"Gosde zet": G 
O SUB 3370: RETtiRhl 
3360 PRINT RT 0,0; "Hebbes ! '* 

3370 FOR I«1 TO 10; BEEP .05,1: 

3380 PRINT RT 0,0;" 

RETURN 


Hier ziet u een aantal print-outs van de vroege stadia 
van een spel tegen Beginners Schaak: 
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Even gedu 




Dit is de positie, die in de vroege stadia van het midden- 
spel in en andere partij bereikt werd: 

Even gedu i. d... 



Het is mogelijk om het programma te veranderen, zodat 
het tegen zichzelf speelt. Dit gebeurt door aan het pro¬ 
gramma op te geven, dat na iedere zet de zijden verwis- 
seld moeten worden. Er wordt dan ook een print-out 
van het scherm gemaakt, dit gebeurt na iedere tweede 
omwisseling. Om het programma dus ‘auto-schaak’ te 
laten spelen, dient u de eerste regels uit het programma 
als voigt te veranderen: 


! REM BEGINNERS SCHRRK 

! print R “Ichrkei_ flrsh ; 

■ —. FLPiSH 0; " IN , " ■ 
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Als u geen print-out wilt, dan kunt u regels 12,100 en 
105 verwijderen. 

Hier is het begin van een partij, die door het veranderde 
programma gespeeld werd: 







Door het programma op deze wijze tegen zichzelf te 
laten spelen, kunt u op eenvoudige wijze fouten opspo- 
ren. Het is namelijk zo, dat uiteindelijk de meeste van 
de aanwezige GOTO- en GOSUB-opdrachten wel een 
keer uitgevoerd worden. Verwijder, indien nodig, de re¬ 
gels, die voor een print-out zorgen, en laat de computer 
gewoon de gehele dag lopen, spel na spel spelend. Als 
hij op een bepaald punt stopt (en het spel niet opgege- 
ven heeft!), dan weet u ongeveer waar er nog een pro- 
grammeerfoutje in het systeem zit. 
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Het programma kan nog iets gewijzigd worden, om de 
mogelijkheid te geven, om niet alle zetten uit te printen, 
maar van tijd tot tijd eens een scherm naar de printer 
te kopieren. Om deze ‘random’ print-outs te krijgen, 
moet het begin van het programma er als voIgt uitzien: 


100 IF PR=I 


__ .. J THEN LET PR = 1 

101 IF PR=1 RND RND<.1 THEN COPY 
: GO TO 110 
105 LET PR=0 













Als u meer over schaken en computer-schaak wilt lezen, 
zijn er een groot aantal publicaties over dit onderwerp 
verschenen. We noemen er enkele: 


Intelligent Computer Games Levy, D., Creative Comput¬ 
ing, november 1980 (p. 158-163) en december 1980 (p. 
208-213) 

Machine Intelligence: A Function of Human Ingenuity 
Georgiou, C. J., Creative Computing, juni 1982 (p. 124- 
135) 
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The Sargon Chronicle Ehara, T. H., Creative Computing, 
mei 1980 (p. 42-44) 

World Chess Championship Computer Ehara, T. H., 
Creative Computing, januari 1979 (p. 134-136) 

Attention, Chess Phreaks! Palenik, L., Creative 
Computing, januari 1979 (p. 78) 

Tumult and the Toronto Tournament Dowhal, D., 
Personal Computing, mei 1978 (p. 98-113) 

A Romanian Rhapsody (Bron voor het verhaal over 
Felix), Friedberg, U., Personal Computing, oktober 1978 
(p. 76-88) 

Sargon vs. Microchess Martellaro, J„ on Computing, 
winter 1979 (p. 26-30) 

Programming a Computer for Playing Chess Shannon, 
C. E., Philosophical Magazine, vol. 41 (7e jaargang) (p. 
256-275) 

Chess Skill in Man and Machine Frey, PeterW. (Springer 
Verlag, 1977) 

Technique in Chess Abrahams, G., (Dover Publications 
Inc., USA, 1973) 

The Complete Book of Chess Horowitz, I. A. en Rothen- 
berge, P. L., (Collier Macmillan, 1969) 
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AVONTUUR/SIMULATIE 


De Wraak van Kasteel Angst 

Geen enkele verzameling spelprogramma’s zou com- 
pleet zijn zondereen avontuur. Ik heb besloten, dat het 
avontuur in dit boek een van de belangrijkste program- 
ma’s moet zijn, dus heb ik een nogal uitgebreid pro- 
gramma geschreven, dat de onheilspellende titel ‘De 
Wraak van Kasteel Angst’ mee heeft gekregen. De eer- 
sten, die een avonturenprogramma geschreven heb- 
ben voor een computer zijn Crowther en Woods. Zij 
hadden hun programma, met de eenvoudige naam ‘Ad¬ 
venture’, op het computersysteem van de Stanford Uni¬ 
versity gemaakt. Het computersysteem was uitgerust 
met een aantal timesharing-terminals, en de uitvoer 
werd uitgeprint op lange rollen papier, met terminals, 
die wel iets van een Telexmachine weg hadden. 
Adventure werd onmiddellijk razend populair. Er wer- 
den kopieen over de gehele Verenigde Staten gebruikt, 
en al snel veroverde het spel de hele wereld. Toen meer 
en meer computerfanaten het spel in handen kregen, 
werd het al snel veranderd en verbeterd. Dit leidde uit- 
eindelijk tot versies, die niets meer weg hadden van de 
originele versie. Het is echter zo, dat er twintig jaar na 
de eerste versie van Adventure, nog steeds Amerikaan- 
se softwarebedrijven zijn, die een programma verko- 
pen, dat zichzelf de ‘originele Adventure, noemt. Het 
schrijven van een avonturenprogramma is een fascine- 
rende oefening. In essentie bedenkt de ontwerper een 
volledig, logisch consistent universum, en brengt dat in 
kaart. Met ‘logisch consistent' bedoel ik, dat in een cor¬ 
rect gecontstrueerd avonturen-programma, een speler 
een brug over kan gaan om een weg te volgen. Als hij 
zich dan omdraait, en de weg terug voigt, dan moet hij 
de brug weer terug vinden, tenzij er een verklaring ge- 
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geven wordt, waarom de brug er niet meer is. Deze 
verklaring hoeft natuurlijk niet alledaags te zijn, en zou 
bijvoorbeeld kunnen luiden: ‘De buitenaardse wezens 
van Epsilon IV hebben de brug meegenomen naar hun 
museum-planeet met een materie-transmitter’. Wille- 
keurige avonturen-programma’s, waarin geen verkla- 
ringen voor veranderingen worden gegeven, zijn frustre- 
rend voor de speler, en kunnen hem nooit lang boeien. 

In ‘De Wraak van Kasteel Angst’ speelt het spel zich af 
in een kasteel, waar een aantal monsters huizen, zoals 
‘de boze tovenaar’, ‘de vuurspugende Angstbrenger’ 
en de onheilspellende ‘Bewaker van de Zwarte Lagune', 
die gedurende het spel door het kasteel lopen, en die 
bevochten moeten worden (u kunt ook trachten te 
vluchten, hoewel dat slechts een kans van slagen van 
een op de twee keer heeft). Daarbij zijn er tot maximaal 
4 kisten aanwezig, die goede en slechte verrassingen 
bevatten, een ties, die een magische drank bevat, die 
zowel een goede als een boosaardige uitwerking kan 
hebben, enzovoorts. Het is onwaarschijnlijk, dat u alle 
monsters en alle verrassingen in ieder spel tegenkomt. 
U krijgt geen kaart van het kasteel. Een gedeelte van 
het speelplezier bestaat uit het ontdekken van de ruim- 
telijke samenhang tussen de verschillende ‘kamers’, die 
u op uw reis tegenkomt. Het kasteel in dit spel is tot op 
zekere hoogte in kaart gebracht, en ik heb er voor ge- 
zorgd, dat de aanwijzingen, die u in de PRINT-opdrach- 
ten te zien krijgt, zorgvuldig overeenkomen met de re- 
laties tussen de verschillende kamers. Dit is gedaan, 
zodat u zelf een kaart kunt maken van het kasteel, terwijl 
u op ontdekkingsreis bent en om voorbeelden aan te 
geven, hoe u een geschikte ‘Avontuur-omgeving’ kunt 
maken. Als u een kaart heeft, die redelijk goed met het 
programmaovereenkomt, dan kunt u die uittesten, door 
in het kasteel ‘te dwalen' met uw kaart als gids. 

Het doel van het spel is eenvoudig, en heeft te maken 
met een grapje, dat ik gebruikt heb om het maken van 
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de kaart een beetje moeilijker te maken. Alle aanwijzin- 
gen in het programma worden als richtingen gegeven 
(noord, zuid, oost en west), en alle deuren in de vertrek- 
ken zijn in een van deze richtingen. U kunt het maken 
van uw kaart het beste beginnen door de vier richtingen 
aan de bovenzijde van een stuk papier te schrijven. U 
begint het avontuur aan de bovenzijde van het papier 
met uw gezicht naar beneden (naar het zuiden dus). De 
eerste beschrijving van een ‘ruimte’ in het programma, 
die u te zien krijgt, ziet er als voigt uit: 




De laatste regel , ‘wat wilt u nu doen?’, voigt iedere 
beschrijving van de omgeving (op een aantal vragen na, 
zoals ‘wilt u de drank drinken?', waar als antwoord ‘J’ 
of ‘N‘ op verwacht wordt), en kan op een van volgende 
zeven wijzen beantwoord worden: 

Toets in: En de computer zal het vertalen als: 


N Ga naar het noorden 

Z Ga naar het zuiden 

E Ga naar het oosten 

W Ga naar het westen 

VE Vecht 

VL Vlucht 

leder ander antwoord op dit punt zorgt er voor, dat het 
scherm schoongemaakt wordt, en de beschrijving van 
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de kamer en de vraag opnieuw worden geprirvt. (U kunt 
ook altijd ‘Q’ gebruiken om het spel te verlaten.) Avon- 
turenspelen, die door mensen gespeeld worden (vaak 
met een scheidsrechter, die Meester van het Spel) vol- 
gen vaak bepaalde regels, die voorschrijven, dat de 
kracht en de persoonlijkheid van een speler aan het 
begin van het spel worden vastgesteld door het gooien 
van een dobbelsteen, en het uitlezen van het karakter 
van de speler uit een label (zoals ‘Schranderheid of 
Kracht). Als twee persoonlijkheden elkaar in het spel 
tegenkomen (avontuurspelers noemen dit Interactie, 
het hoogtepunt van het spel), dan wordt er nog een 
aantal malen met de dobbelsteen gegooid, en een aan- 
tal tabellen wordt geraadpleegd, om te zien, hoe de 
afloop van het gevecht zal zijn. 

Om het systeem eenvoudig te houden, heb ik mij vast- 
gehouden aan de geaccepteerde conventies, maar er 
wel voor gezorgd, dat de Spectrum al het werk doet, 
zowel het genereren van uw persoonlijkheid als dat van 
de monsters en het oplossen van problemen, die u on- 
derweg tegenkomt. 

Het verhaal achter het programma en het doel van het 
spel zijn eenvoudig. U als een welbekende bent de lig- 
ging te weten gekomen van een eeuwenoude rui'ne van 
een kasteel. Omdat u verschrikkelijk nieuwsgierig bent, 
gaat u de hoofdpoort binnen in de noordelijke muur, 
waarvan u ontdekt heeft, dat hij openstaat. Als u het 
kasteel echter door de poort naar binnen bent gegaan, 
dan blijkt opeens, dat de poort gesloten wordt, en u 
niet meer langs deze weg het kasteel kunt verlaten. U 
moet het kasteel doorzoeken om een andere uitgang 
te vinden. Terwijl u in de grote hal van het kasteel staat, 
die rijkelijk met tapijten behangen is, herinnert u zich 
een oude legende, die over dit kasteel verteld wordt. 
De laatste eigenaar, een machtige tovenaar, had 300 
jaar geleden met z’n laatste krachten een legioen van 


146 



verschrikkingen gemaakt om zijn huis tegen indringers 
te beschermen. Behalve de noordelijke ingang, die nu 
door magische krachten voor altijd gesloten is, is er 
maar een weg naar buiten. Dit is via de, zich onder het 
kasteel bevindende, Zwarte Lagune die door een dood- 
gewone deur vanuit het kasteel bereikt kan worden. Er 
wordt echter gefluisterd, dat de tovenaar zijn kasteel 
nog een extra bescherming heeft meegegeven, door 
een onheilspellend monster te scheppen, waarvan wei- 
nig bekend is, behalve zijn naam, De Bewaker van de 
Zwarte Lagune. 

Uw persoonlijkheid in het spel wordt bepaald door drie 
factoren,: magische kracht, fysieke kracht en wijsheid. 
leder wezen, dat gedurende een eeuwigheid door de 
vervallen kamers van het kasteel zwerft, heeft dezezelf- 
de attributen. De huidige staat van uw attributen ver- 
schijnt als voigt op uw scherm: 



Als u een monster tegenkomt, en u besluit de strijd met 
hem aan te binden dan kunt u slechts met een attribuut 
tegelijk vechten. U kunt echter zelf kiezen met welke. 
In het algemeen is het zo, dat u de meeste kans heeft 
om te winnen, als het verschil in een bepaalde attribuut 
van u en dat van het monster erg groot is. Bijvoorbeeld, 
als uw MAG IE 20 is, en dat van het monster slechts 4, 
en het verschil tussen andere kwaliteiten is minder 
groot, dan kunt u het beste het monster met uw MAGIE 
proberen te verslaan. 
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KRRCHT: 1 

UIJSMEIO: 

t is U ge li 


Raak niet in paniek, als het nu al te ingewikkeld dreigt 
te worden. Het programma doet bijna al het werk voor 
u, en leidt u door het spel, waarbij verkeerde invoer door 
het toetsenbord verworpen of genegeerd wordt. 
leder gevecht geeft u de mogelijkheid om de attribuut, 
waarmee u vecht te vergroten, of om met die attribuut 
te betalen, als u gewond raakt tijdens het gevecht. Als 
u al uw punten verloren heeft, is het spel ten einde. U 
heeft zo veel mogelijk punten nodig voor het Laatste 
Gevecht. Als u weet, waar u de Zwarte Lagunge kunt 
vinden {om het u moeilijk te maken, de Lagune kan zich 
op twee verschillende plaatsen bevinden, dus uw kaart 
is niet altijd volledig betrouwbaarl), dan moet u drie ge- 
vechten leveren tegen de Bewaker van de Zwarte Lagu¬ 
ne, ieder met een ander attribuut. Sommige van de kis- 
ten, die in het huis rondzwerven, bevatten ‘draken- 
goud’, en het is nuttig om dit te verzamelen, omdat het 
gebruikt kan worden om nieuwe attribuutpunten te ko- 
pen nadat u de Bewaker heeft gevonden, maar voordat 
u met hem gevochten heeft. U moet uit deze laatste 
gevechten komen met en totaal van ten minste 10 attri¬ 
buutpunten om het kasteel te kunnen verlaten. leder 
gevecht met een monster werkt als voIgt: Nadat u het 
attribuut uitgekozen heeft, waarmee u de strijd wilt aan- 
vangen, geeft de computer het verschil aan tussen de 
waarden van uw attribuut en dat van de tegenstander. 
Als u bijvoorbeeld zou besluiten om een monster aan 
te vallen met het attribuut WIJSHEID, en uw wijsheid is 
15, terwijl het monster een wijsheid heeft van 2, dan 
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print de computer (regel 5240) ‘Het verschil is 13’, ge- 
volgd door ‘en u heeft het voordeel'. Nu wordt er, net 
zoals bij en dobbelspel, gegooid met een zes-zijdige 
dobbelsteen, en het getal, dat bovenkomt, is het ‘ver- 
lies’ voor deze ronde van het gevecht. Er wordt een 
willekeurig getal gegenereerd tussen 1 en het verschil 
tussen de twee scores. Dit wordt dan vergeleken met 
uw score en die van het monster voor het gekozen at- 
tribuut. De winnaar is degene, die een aantal attribuut- 
punten heeft, dat het dichtst bij het gegenereerde getal 
ligt. U kunt dit eventueel veranderen, zodat de winnaar 
degene is, wiens score het verst van het gevonden getal 
vandaan ligt. Als het verschil tussen beide attribuutsco- 
res gelijk is aan 1, dan wordt het gegenereerde getal 
altijd 1, zodat de zwakste speler altijd wint. (In deze 
regel zit een aanwijzing verscholen, die u in staat kan 
stellen om meer dan een evenredig gedeelte van de 
gevechten te winnen. Leest u de voorgaande regels 
daarom nog eens goed door!). Ik laat het aan u over om 
uit te rekenen, wie er wint, als de attribuutpunten gelijk 
aan elkaarzijn. Nuzijn winnen en verliezen in dit spelletje 
twee totaal verschillende zaken. De kosten en winsten 
van een gevecht zijn afhankelijk van het door u gekozen 
attribuut, en uw huidge score voor dat attribuut. U kiest 
het attribuut, waarmee u wilt vechten, door de eerste 
letter ervan in te tikken (M voor MAGIE, etc.) en de com¬ 
puter gebruikt deze informatie in de subroutine vanaf 
regel 5340 om de straf voor verlies, of de winst bij een 
overwinning vast te stellen. Als u bijvoorbeeld met Ma- 
gie gevochten heeft, en u verliest, dan verliest u het 
totale aantal punten, dat met de dobbelsteen gegooid 
werd, als u ten minste zoveel punten bezit. Als u dus 
twee punten heeft, en er wordt een drie gegooid in een 
gevecht, dat u verliest, dan verliest u geen punten. 
Ook dit is in de praktijk eenvoudiger dan het lijkt, omdat 
de computer bepaalt, of een bepaalde straf wel of niet 
uitgedeeld moet worden. Als u een gevecht verliest, 
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waarbij u Kracht heeft uitgekozen als attribuut, dan ver- 
liest u ook het aantal punten, dat met de dobbelsteen 
gegooid werd, als u zoveel punten ten minste bezit. Als 
u verliest, terwijl u uw tegenstander heeft uitgedaagd 
met uw wijsheid, dan verliest u slechts de helft van het 
gegooide aantal punten, naar beneden afgerond op het 
eerste gehele getal. Als uw straf dus 1 zou zijn, en u 
verliest, dan kost dit u niets, omdat de helft van 1 naar 
beneden afgerond wordt op nul. 

Winnen is natuurlijk veel leuker. U kunt meer winnen 
dan verliezen, als u bij een gevecht gebruik maakt van 
uw Magie. Als u met Magie wint dan krijgt u het dubbele 
van de gegooide punten. Met kracht wint u geen punten. 
U kunt dus beter niet proberen met Kracht te vechten, 
omdat u vaak geen partij bent voor de zwaar gespierde 
monsters. Winnen met Wijsheid geeft u als beloning de 
helft van de gegooide punten erbij (omdat het verliezen 
met Wijsheid ook maar de helft van de punten kost). 
Het programma voIgt een bepaalde, vooropgezette 
structuur, het is dus relatief eenvoudig om een gedeelte 
van het programma te vinden, dat u wilt veranderen. 
(Als u de kaart heeft gevonden, die in het programma 
gecodeerd is, dan wilt u deze wellicht wijzigen. De ma- 
nier waarop vertel ik u. U kunt dan een meer uitgebreide 
kaart gebruiken, waar nog steeds dezelfde monsters 
zijn en dezelfde regels gelden. Als u dit voor elkaar heeft, 
dan wilt u waarschijnlijk de basis van het programma 
gebruiken om een eigen gemaakte kaart te gebruiken.) 
De structuur van het programma ziet er als voIgt uit: 

20- 170 Laatzien, in welke kameru bent, waar de 
uitgangen zijn, etc. Dit is ook de hoofd- 
programma-lus. 

2000 - 2050 Beschrijvingen van de monsters 
4000 - 4950 Uiteindelijke confrontatie (de Zwarte La- 
gune, de drie laatste gevechten, het ein- 
de) 


151 



5000 - 5620 Acties. U voert uw richting in, of u besluit 
te vluchten of te vechten. Alle gevechten 
worden ook in dit gedeelte van het pro- 
gramma uitgevoard, en straffen en belo- 
ningen worden hier uitgedeeld. 

7000 - 7500 Voorwerpen. Dit gedeelte van het pro- 
gramma bevat de vier kisten, de ties met 
drank etc. Deze routine wordt willekeurig 
aangeroepen vanaf het einde van de ac- 
tie-subroutine. 

8000 - 8140 Beschrijvingen van de kamers, en de aan- 
roep van de monster-subroutines 
9000-9670 Vertraging/geluid subroutine (die ver- 
schillende malen vanuit het programma 
aangeroepen wordt, om de kleur toe te 
voegen, en om u de kans te geven om te 
lezen, wat erop het scherm staat, voordat 
dit schoongemaakt wordt) 

Het meest belangrijke gedeelte van het programma, en 
het middelpunt van dit avonturenprogramma, is het me- 
chanisme, dat de hele wereld bijeen houdt. Hier worden 
de relaties tussen de verschillende onderdelen van het 
systeem bepaald, en worden potentiele bewegingen 
van de ene naar de andere kamer gecontroleerd, om 
vast te stellen, of ze legaal zijn. Vanuit twee van de 
kamers in het spel heeft u uitzicht over de ‘Golvende 
Tuinen’, maar u kunt niet in de tuin komen, om zo van 
de ene kamer naar de andere te lopen. (De tuin is aan 
het spel toegevoegd, om ten eerste het spel aantrekke- 
lijker te maken, en in de tweede plaats de kaart-teke- 
naars een hint te geven over de lokatie van bepaalde 
kamers.) 

Ik ga nu uitleggen hoe het programma de verschillende 
elementen van het systeem bijeenhoudt, maar ik wil 
niet, dat u het programma te intensief bestudeert, om- 
dat u dan een groot deel van de speelvreugde kunt 
bederven, door uit de programma-listing een aantal ver- 
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rassingen te ontdekken. Kiik naar de regels 9570 tot 
9680. De DATA-opdrachten, die hier staan, bevatten 
een hoop bruikbare informatie (en er zijn dan ook een 
aantal dummy-data-opdrachten toegevoegd, om te 
voorkomen, dat u alleen met deze informatie gewapend 
zult proberen, uw kaart te tekenen.) Kijk naar de vierde 
DATA-opdracht (regel 9600). De eerstetwee elementen 
van de string zijn het nummer van de kamer, die zich 
ten noorden van de kamer bevind, die in deze DATA-op¬ 
dracht bewaard wordt. Er is ten noorden van deze ka¬ 
mer geen andere kamer, dus er is ook geen uitgang aan 
de noordzijde van deze kamer. De volgende twee ele¬ 
menten laten zien, dat ten zuiden kamer nummer zeven 
ligt, de volgende twee betekenen een oost-uitgang naar 
kamer twee in het kasteel, en de volgende twee geven 
een westelijke deur naar kamer vijf. De twee nullen daar- 
achter worden gebruikt om de informatie op te slaan 
over de inhoud van de kamer. 

U kunt dit systeem van DATA-opdrachten gebruiken 
om iedere kaart in op te slaan. Als ik in de kamer zou 
zijn, die door regel 9600 wordt weergegeven, en ik zou 
het commando geven om naar het noorden te gaan, 
dan weet de computer, dat hij alleen maar naar de eerste 
twee elementen uit de string hoeft te kijken, die deze 
kamer beschrijven. Als deze eerste twee elementen bei- 
de nul zijn, dan weet de computer, dat er geen doorgang 
naar het noorden bestaat, en vraagt hij u om een andere 
richting. Als er wel een getal gevonden wordt, dan kan 
de variabele, die gebruikt wordt om het kamer-nummer 
in op te slaan (in dit programma Z) gevuld worden met 
de VAL van die twee elementen. Dit programma maakt 
uitgebreid gebruik van de zeer eenvoudige string-mani- 
pulatie-technieken in Sinclair BASIC. De attributen van 
de monsters worden hierbij in het array M$ opgeslagen, 
en uw attributen in J$. 

Het is niet moeilijk om deze te veranderen terwijl het 
spel voortgaat. Als u een Angstbrenger in een bepaalde 
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kamer verslaat, en zijn MAGIE daarbij terugbrengt tot 
9, dan zal zijn Magie later nog steeds 9 zijn. Als u een 
monster maar vaak genoeg tegenkomt, dan kunt u hem 
dus eenvoudig van de kaart vegen. Ook dit is een ander 
voorbeeld van het consistente karakter van dit avontu- 
ren-programma: alle monsters blijven dezelfde mon¬ 
sters, ook als u ze later in een andere kamer tegenkomt. 
Als u een zeer eenvoudig avontuur zou hebben, met 
slechts 4 kamers, dan kunt u deze als voigt onderling 
verbinden: 


N 



S 


De deuren ziet u in de scheidingswanden. De kamers 
kunnen dan met het door ons gebruikte systeem be- 
schreven worden met: 

Kamer 1: ‘00030200’ Geen weg naar het noorden, ka¬ 
mer 3 naar het zuiden, kamer twee naar het 
oosten, niets naar het westen 
Kamer 2: ‘05040001 ’ Merk op, dat ook de buitenwereld 
een nummer moet hebben, dat hebben we 
hier voor het gemak maar even 5 genoemd. 
Kamer 3: ‘01000000’ Niet veel uitgangen hier 
Kamer 4: ‘02000000’ Hier ook niet 

Stel, u bent in kamer 2. De print-opdracht, die de kamer 
beschrijft, geeft als uitvoer: ‘U bent in een kleine, vier- 
kante kamer. In de noordelijke muur is een deur naar 
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de buitenwereld, er is verder een deur naar het zuiden 
en naar het westen. Waar wilt u naar toe gaan?’. Als u 
nu ‘O’ invoert, dan kijkt de computer naar het ‘oost 
element’ uit de DATA-opdracht, die kamer twee weer- 
geeft. Dit zijn het vijfde en zesde element. Hij ziet dan, 
dat hier twee nullen staan. Hij weet daardoor, dat hij de 
opgegeven richting niet kan volgen, en signaleert dit 
aan de speler: ‘U kunt niet door muren lopen’. Hij wacht 
dan op een nieuwe richting. Als de speler nu ‘Z’ intikt, 
waarmee hij bedoelt, dat hij naar het zuiden wil bewe- 
gen, dan kijkt de computer naar de ‘zuid-elementen’ 
van de string, en vindt daar de cijfers ‘04’. Dit betekent, 
dat de speler van kamer twee naar kamer vier gaat be- 
wegen. De computer hoeft nu alleen de VAL van het 
gevonden getal op te slaan in de variabele, die het ka- 
mernummer van de speler bevat, en de speler is nu naar 
een andere kamer gegaan. Merk op, dat er in de PRINT- 
opdrachten geen enkele referentie gedaan wordt naar 
de kamernummers. Deze bestaan uitsluitend voor intern 
gebruik. 

Ik stel voor, dat u het programma nu eerst een aantal 
malen uitprobeert, om er achter te komen, hoe u ermee 
om kunt gaan. Dit geeft u een behoorlijk goed idee van 
de indeling van het kasteel. De kaart kunt u het beste 
tekenen als u een reeks losse vierkanten op het papier 
zet, die u daarna vult met de namen van de kamers.die 
u ontdekt (zoals ‘De Hoofdingang’), en daarna kleine 
‘gangen’ tekent, die de verschillende kamers verbinden. 
Deze gangen kunnen boven en onder elkaar door gaan 
terwijl u langzamerhand de samenhang tussen de ka¬ 
mers ontdekt, en de kaart na enige tijd opnieuw in het 
‘net’ overgetekend worden, als u denkt dat u een be¬ 
hoorlijk accurate kaart van het kasteel gemaakt hebt. 
Als u dit gedaan heeft, dan kunt u naar eigen wens ‘door 
het kasteel wandelen', waarbij u uw map kunt gebruiken 
om de details uit te testen. Nadat u het programma een 
aantal malen gespeeld heeft, kunt u weer naar het boek 
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terugkeren. Als we dan de listing bestuderen, zal ik een 
aantal manieren aangeven om het programma te wijzi- 
gen en te verbeteren, en u een meer algemene achter- 
grond van avonturenprogramma’s geven. 


35 if u$ = " ©00000 ■* then go to ■ 

4.0 PRINT INVERSE 1 ;N$;”, Uw e 

--happen zijn : " 

— -j$(l t 


URL. 


.to a>: 


I THEN 


PRINT TRB 4 ..; INUERSE Ij 
: US tl TO 2! 

6S IF URL (J$(3 TO 4)}>0 THEN 
PRINT TAB 4.; INUERSE 1, "KSfiCHT: 
'.;U*f3 TO At 

_?® URL. tU$C5 TO 6) > >® THEN 

PRINT TRB 4.; INUERSE I; "UIUSHEID 
;U$ t5 TO 6J 

f£,,£C=C ONEY>0 THEN PRINT TRB A 
•' £K U f RSE I? "BIJKDON: f; MONEY 
B0 IF U$="000000" THEN PRINT " 

net avontuur is argelopen","u be 
lit asn het emd van Uw ''/'trscht 
en. U heeft dapper en",''goed gev 
ochten, maar u kon de " , "noe i l i u r. 
heden niet o ve ru i nnen Uaar 

wei...": STOP 
100 GO SUB PAUSE 
110 GO SUB ROOM 


130 GO SUB PRUSE 

140 GO SUB ROTION 

150 GO SUB PRUSE 

170 GO TO 30 

180 REM »**$****$#*#** 

2000 REM MONSTER SUBROUTINE 
-- "Ef ■ 


-- ----- een vuu r, "spugende 
gstbrenger. 2 ijn","#ijsheid i. 
;M*t2,6 TO hij heeft ee 
’’fcracht van TO 5);", 
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Nu u het in hat Kasteel van de Angst (Versie 1) heeft 
overleefd wilt u misschien de volgende wijzigingen aan- 
brengen. U krijgt dan een nieuwe versie van Kasteel 
Angst, met een meer gecompliceerde kaart. Breng de 
volgende veranderingen aan en u kunt het gehele spel 
weer opnieuw beginnen. Voor de conservatieven onder 
ons is het misschien een teleurstelling, dat de Tuin (die 
eigenlijk meer een soort binnenplaats was) nu naar bui- 
ten het kasteel verschoven is. De Tuin kan echter nog 
wel gezien worden door de ramen van verschillende 
vertrekken, maar u kunt geen andere kamers aan de 
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overzijde zien, dus de Tuin kan nu niet meer gebruikt 
worden om u op een gemakkelijke manierte helpen de 
kaart te maken van het nieuwe kasteel. 

Verander eerst de DATA-opdrachten als voIgt: 


9678 DRTR "0800130880" 

3688 DRTR "0008000880" 

3890 REM PRUSE ROUTINE 
9900 POKE 33693,-1: IF RNO 
EN GO TO 9950 
9905 FOR 1=1 TO RND*10+18 
9910 BEEP 0-05.(Z+RND*10J: 


>.5 TH 
BEEP 


Nu moet u enige onderdelen van de verschillende ruim- 
ten wijzigen. Om het wijzigen te vereenvoudigen heb ik 
de te wijzigen woorden in hoofdletters getikt. Merk op, 
dat u in regel 8030 geen wijzigingen hoeft aan te bren- 
gen. 


3000>REM INHOUD URN KRMERS 
3010 IF Z=1 THEN PRINT "U s 






































t UESTEN EN een gang naarhet zui 
ll£0 PRINT : IF Z=1S THEN GO TO 


ir iWJ i new J.r- n» 

RND RND>.55 THEN LET 6 $ 12 ., 9 r =ST 
St (INT <RND*6>): REM UERUIJDERE 
N UQOR MINDER MONSTERS 


U kunt nu rustig met dit programma verder werken, en 
zo veel versies van Kasteel Angst maken als u zelf wilt. 
U kunt dezelfde kamernamen behouden, en hetzelfde 
aantal kamers (12), en daarbij uw eigen kaart ontwikke- 
len, met de bijbehorende DATA en PRINT-opdrachten. 
Daarna kunt u de kaart weggooien en proberen, de de¬ 
tails te vergeten, als u het eigengemaakte kasteel bin- 
nengaat. Misschien wilt u lieverkastelen uitwisselen met 
vrienden, en proberen de weg te vinden, die zij hebben 
gemaakt in hun eigen versies van mijn programma. 
Hoewel u een wereld moet maken, die op een kaart te 
tekenen is (anders zou u gewoon PRINT-opdrachten 
kunnen laten genereren en telkens de ENTER-toets in- 
drukken) kunt u natuurlijk proberen de verbindingen tus- 
sen de kamers zo ‘onmogelijk’ mogelijk te maken, als 
maar in twee dimensies mogelijk is. Het is ook relatief 
eenvoudig om meer monsters toe te voegen, of deze 
zich nu in groten getale in het oude Kasteel bevinden, 
of wat schaarser zijn in een kasteel dat u zelf bedacht 
heeft. Zodra u hiermee tevreden bent, kunt u het aantal 
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kamers verdubbelen, waarbij u de grootte van het array 
B$ moet verdubbelen om hiermee rekening te houden. 
Ook moet u natuurlijk DATA-opdrachten maken, die in 
het array B$ opgeslagen worden, en de PRINT-op- 
drachten die iedere kamer beschrijven. U kunt dit echter 
beter niet proberen totdat u volledig vertrouwd bent 
met mijn originele kasteel, en de manier, waarop deze 
is gecodeerd in het programma, en voordat u zelf een 
aantal variaties op Kasteel Angst heeft gemaakt met 12 
kamers. De monsters worden opgeslagen in het array 
M$. Misschien kunt u het beste de meest eenvoudige 
wijzigingen in het programma eerst proberen. Dit is het 
wijzigen van de inhoud van de kisten, die zich in het 
Kasteel bevinden. Het effect van het drinken van de 
toverdrank of het resultaat van het lezen van de papy- 
rusrol kan ook gewijzigd worden. Zoals het programma 
standaard werkt, wordt de rol, de vergulde safe of de 
toverdrank slechts een maal in het programma gebruikt, 
en bestaan er slechts vier kisten in het kasteel. Hoewel 
het programma niet meer dan vier kisten laat zien, is er 
geen mechanisme in het spel aanwezig, dat er voor 
zorgt, dat er iedere keer dezelfde dingen uit de kisten 
komen, als u besluit er een te openen. (Als u reeds vier 
maal door een vampier in de keel gebeten bent, zodat 
uw KRACHT flink verminderd is, dan zou u misschien 
willen, dat er een manier was, om er voor te zorgen, dat 
de vampiers niet in iedere kist van het kasteel leven.) 

U vindt het misschien jammer dat u een computer met 
enorme grafisch mogelijkheden heeft, zoals de Spec¬ 
trum, en dat alle uitvoer in geschreven vorm is, hoewel 
erdan welgebruik gemaakt wordt van FLASH, INVERSE 
en BRIGHT. Er is geen twijfel, dat sommige spelers pro- 
gramma’s prefereren, die complete plaatjes tekenen 
van iedere kamer, compleet met monsters, kisten etc. 
De listing is echter al erg lang, en als hij nog veel langer 
zou zijn, dan wordt het programma voor dit boek te 
onoverzichtelijk om nog van enig onderwijzend nut te 
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kunnen zijn. Programma’s, die gedetailleerde plaatjes 
tekenen, gebruiken daarvoor meestal een grote wir-war 
van PLOT en DRAW opdrachten, en u heeft dan ook 
een groot aantal programmaregels nodig om een rede- 
lijk plaatjes te tekenen, veel meer dan ik in dit program- 
ma zinvol acht. U kunt het programma echter zelf zo 
mooi maken als u zelf wilt. Zelfs als u geen nieuwe ka- 
mers wilt, geen monsters of voorwerpen toe wilt voe- 
gen, dan wilt u het programma wellicht verbeteren door 
het toevoegen van plaatjes. Ik ben erg gei'nteresseerd 
in het zien van versies, die met grafische tekeningen 
uitgerust zijn, of andere variaties, die u ontwikkeld heeft. 
Stuurt u ze me via de uitgeverij toe. Wie weet, kunnen 
de beste versies ervan in een van de volgende uitgaven 
uit onze serie gebruikt worden. 

Zelfs als u niet zo ver wilt gaan, grote blokken opdrach- 
tencode toe te voegen, die complete kamers tekenen, 
dan kunt u uw kamers natuurlijk bepaalde kleuren ge- 
ven, of u kunt bepaalde beschrijvingen van monsters 
telkens in dezelfde kleuren laten printen, wellicht met 
een bepaalde ‘herkenningsmelodie’. Merk daarbij re¬ 
gels 2010 tot 2050 op. U kunt hier eenvoudig kleurenin- 
formatie toevoegen, en de muziek voor de herkennings¬ 
melodie in deze regels opnemen, direct na het op- 
drachtgedeelte ‘IFQ = ..THEN...’. Eenanderalternatief 
naast geheel getekende kamers is gebruik te maken 
van een blok van vier grafische tekens voor gebruik van 
de vijf monsters en deze tekens dan te gebruiken om 
een karakteristieke rand aan het scherm te tekenen als 
een bepaald monster genoemd wordt. U zou zelfs het 
hele scherm kunnen vullen met deze blokken grafische 
tekens, voordat u het scherm schoonmaakt om de rele- 
vante PRINT-opdrachten en de herkenningsmelodie uit 
te voeren. 
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ANDERE OMGEVINGEN 


Als u de kaart van KASTEEL ANGST niet geheel uitge- 
werkt heeft, maar u wilt uw avonturen-programma meer 
op een eigen programma laten lijken, dan kunt u verre- 
gaande wijzigingen aanbrengen. Als we aannemen dat 
u de in- en uitgangen van de kamers gelijk houdt, dan 
kunt u natuurlijk de namen van de kamers zo maken, 
als u zelf wilt. U zou, bijvoorbeeld, het hele avontuur uit 
kunnen zetten aan boord van een verlaten ruimteschip, 
dat achtergelaten is door een vreemd ras in een langza- 
me baan rond een onbekende asteroide-gordel. In 
plaats van (of behalve) de 'monsters’, kunt u gevaarlijke 
buitenaardse robots gebruiken, die door het onbekende 
ras zijn achtergelaten om het schip tegen indringers te 
beschermen, zelfs nu hun meesters al lang zijn uitge- 
storven. Het doel, waar u naar zoekt, kan de motor van 
het schip zijn, waarvan u zou mogen verwachten, dat 
hij van een radicaal gewijzigde technologie is. Als u de 
kamer vindt, waar de machines van het schip zich be- 
vinden (de kamer, die in het kastel de Zwarte Lagune 
is), dat door de Spectrum bestuurd wordt, en die door 
u verslagen moet worden. 

In plaats van MAGIE, KRACHT en WIJSHEID kunnen 
uw eigenschappen meer aardse zaken zijn (vergeef mij 
de uitdrukking, hier in een ruimteschip!), zoals Zuurstof, 
Voedsel en Schoten uit uw laser-pistool. U kunt niet 
alleen de soort eigenschappen veranderen, die in het 
spel gebruikt worden, maar ook het aantal vergroten, 
door nieuwe eigenschappen toe te voegen, zoals ‘Uit- 
houdingsvermogen’ of ‘Kennis van het ruimteschip’. U 
kunt de speler dan toestaan een maximum van bijvoor¬ 
beeld 90 eigenschappunten totaal te verdelen over de 
eigenschappen, die hij of zij wil hebben, inplaats van 
de punten uit te delen met een random-getallen-gene- 
rator. 

Een andere manier om de eigenschappunten uit te de- 
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ten, is uw speler de mogelijkheid te geven, om te bepa- 
len, wat voor ‘type’ speler hij of zij is. U kunt dan gebruik 
maken van bepaalde, vooropgezette typen avonturiers, 
die bijvoorbeeld ‘STOER’ of ‘SLUW’ zijn, en waarbij bij 
ieder type speler een bepaalde verdeling van punten 
hoort. 

Ons originele programma kan natuurlijk ook de basis 
zijn voor een ontdekkingsreis in een piramide, die door 
u onderzocht wordt, voordat hij opgeblazen wordt om 
een nieuwe dam in de Nijl te kunnen bouwen. U dwaalt 
door tunnels, en onderzoekt de kamers in de piramide,' 
totdat u in de kamer van de Farao terecht komt (de 
Zwarte Lagune in Kasteel Angst), waar u de Vloek van 
de Farao moet zien te overwinnen. 

Uit deze ideeen ziet u, dat het niet zo moeilijk is, om 
een avonturenprogramma te schrijven, dat weinig of 
geen overeenkomst meer heeft met het originele pro¬ 
gramma. Als u een beetje vertrouwd geraakt bent met 
het manipuleren van gecodeerde ‘werkelijkheid’ op de¬ 
ze manier, dan zit u waarschijnlijk te springen om zelf 
een avonturenprogramma te schrijven. U kunt een hoop 
ideeen opdoen door te kijken naar avonturenprogram- 
ma’s die commercieel verkrijgbaar zijn voor de Spec¬ 
trum, of voor andere computers. Sommige van deze 
programma’s zijn, wellicht tot uw verrassing, niet geba- 
seerd op een ‘sluitende werkelijkheid’, en zijn meer af- 
hankelijk van ‘willekeurige getallen’ dan van de werke- 
lijke kundigheid van de speler in het tekenen van de 
kaart of het onthouden van details uit het programma. 
U kunt experimenteren met het door elkaar mengen van 
verschillende programma’s, een dimensionaal doolhof 
toevoegen, of een reactietest in het programma op te 
nemen, om te zien, hoe sterk uw gevechten werkelijk 

Houd echter altijd in de gaten, dat als u een avonturen¬ 
programma schrijft, het absoluut noodzakelijk is, dat er 
een duidelijk doel in het spel aanwezig is. Als uw speler 
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doelloos in het kasteel rondzwerft, hier en daar schatten 
vindt of draken doodt, dan is het spelletje niet erg leuk, 
en wordt uiteindelijk al snel vervelend, tenzij ereen be- 
paald laatste probleem op te lessen is, een Finale Schat 
veroverd moet worden, of hij uit de Martelkamer moet 
zien te ontsnappen. Behalve een vastomlijnd doel in het 
programma, moeten de acties in het spel gerelateerd 
zijn aan dat doel. 

In Kasteel Angst probeert uw speler zo veel mogelijk 
eigenschappunten te verzamelen (of goud, dat bij het 
laatste gevecht voor eigenschap-punten ingewisseld 
kan worden), om zo het laatste gevecht aan te kunnen, 
en dan nog genoeg punten overhoudt om te kunnen 
ontsnappen aan de klauwen van de bewaker. ledere 
activiteit (het openen van een kist, waarin wellicht goud 
zit, of het verslaan van een monster, die voor een be- 
paalde eigenschap slechts zeer weinig punten heeft) 
kan gezien woren als een actie in relatie tot het uiteinde- 
lijke doel van het spel. Het is natuurlijk erg leuk om de 
kaart van het kasteel te ontrafelen, of gewoon in een 
‘nep-omgeving’ rond te wandelen, maar het spel is veel 
aantrekkelijker als de speler weet, waarom hij deze on- 
gebruikelijke omgeving doorzoekt. 

Als u meer wilt weten over de Rollen-spellen, om ideeen 
op te doen voor nieuwe ontwikkelingen in uw eigen 
avontuur, dan kunt u deze vinden in de volgende drie 
boeken (ik heb zelf het eerste boek gelezen, toen ik over 
de omgeving van Kasteel Angst dacht): 

Fantasy Rote Playing Games Holmes, Eric J. (Arms and 
Armour Press, 1981) 

Dicing With Dragons, an Introduction to Role-Playing 
Games Livingstone, Ian (Routledge & Kegan Paul, 1982) 

What is Dungeons and Dragons’- Butterfield, John en 
Honigmann, D. (Penguin Books Ltd., 1982) 
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Joe Kapitalist Junior 


U bent Joe. Uw opdracht: leid een limonadekraampje 
en maak uw fortuin (of ga tenminste niet failliet). Het 
programma helpt u met gebruik van de mogelijkheden 
van de Spectrum op het gebied van kleuren en high-re¬ 
solution grafische mogelijkheden, om zo het program¬ 
ma te verlevendigen, terwijl u voor uw bestaan vecht. 
U ziet hierbij zelfs een portret van uzelf achter de toon- 
bank van uw limonadekraampje. De grafische afbeel- 
dingen in het programma zijn natuurlijk veel beter dan 
de voorbeelduitvoer, die u hier ziet. 

Als het programma gestart is, dan wordt u verteld, dat 
u nu de eigenaar bent van een kraampje, waar drankjes 
langs de weg verkocht worden. U krijgt iedere dag de 
weersvoorspelling. Warm weer betekent grote verkoop. 
Een saaie dag geeft aan, dat limonade niet bij de Top 
Tien van de meest verkochte dranken zal staan. Met 
het weerbericht en de handelskennis, die u tijdens het 
spel opdoet, moet u beslissen, hoeveel glazen limonade 
u aan het begin van de dag klaar maakt. U krijgt dan te 
horen, hoeveel ieder glas limonade u aan produktiekos- 
ten gekost heeft. U moet dan beslissen, hoe hoog de 
prijs is, die u voor het glas limonade in uw kraampje 
gaat vragen. Natuurlijk hebben erg hoge prijzen de nei- 
ging, de verkopen te drukken. Aan het begin van het 
spel kost uw kraampje u 50 cent huur per dag. Dit wordt 
natuurlijk in de loop van de tijd meer door inflatie. Inflatie 
is ook merkbaar in uw winsten, omdat de grondstoffen 
voor uw limonade in prijs stijgen. 

Het voorbeeld hieronder laat u zien, wat voor informatie 
u ter beschikking heeft: zacht weer, een grondstofprijs 
van 2 cent per glas limonade, een huur van 50 cent en 
uw kapitaal, dat in het voorbeeld / 20,— is. Van dit 
rapport moet u beslissen, hoeveel glazen limonade u 
wilt maken, dit aantal glazen verschijnt dan in uw 
kraampje. Het programma tekent nu uw kraampje, com- 
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pleet met het aantal voile glazen, en een klein bordje, 
waarop de verkoopprijs staat afgedrukt. 

Daama ziet u op het scherm, dat de limonade verkocht 
wordt (de glazen worden leeggedronken). Aan het einde 
van de dag rollen de luiken voor het kraampje naar be- 
neden, en u krijgt te zien, wat het resultaat van die dag 
is geweest. ‘U heeft 20 glazen verkocht: U heeft / 1 
ontvangen. U heeft 20 glazen gemaakt, die u f 0,40 
hebben gekost; De huur was / 0,50; u heeft een winst 
van/0,10.’ 

De DATA-opdrachten in regel 15 en 20 geven de voile 
en lege glazen weer. De volgende DATA-opdracht, regel 
25, bevat het weerbericht en de aantallen, die het effect 
van het weer op de verkopen hebben. De INK-kleur 
wordt op zwart en het scherm op normale helderheid 
gezet. Vervolgens wordt het scherm schoongemaakt 
(regel 45), voordat in regel 50 en 60 de grafische tekens 
definieren, waarbij in regel 50 een teken gelezen en de 
bijbehorende DATA in regel 60 gePOKEd wordt. Na de 
BEEP op regel 70 wordt een FUNCTION gedefinieerd 
in regel 80, die gebruikt wordt in regel 840 om vast te 
stellen, hoeveel glazen limonade er per dag verkocht 
worden. 

Regels 100 tot 160 printen de instrukties, en na een 
pauze (zie PAUSE 900 in regel 160) verschijnen de woor- 
den ‘Veel geluk!’. Regel 170 print, met FLASH aan, het 
bekende ‘Druk een toets om door te gaan’. PAUSE 0 
wacht, totdat er een toets ingedrukt wordt (op de ZX81 
is het equivalent hiervoor PAUSE 4E4 of PAUSE 40000) 
en daarna wordt het scherm schoongemaakt. 

De variabelen worden in regel 160 gei'nitialiseerd. Uw 
startbedrag (variabele-naam CASH) wordt op 2000 ge¬ 
zet; het weer op 4; de grondstof-prijs voor uw limonade 
op 2; en de huur voor het kraampje op 50. Regels 200 
tot 220 kiezen het weer en regel 230 start met het rap¬ 
port. Regel 250 RESTOREd de DATA-pointer naar regel 
25, die de woorden voor het weerbericht en de bijbeho- 

179 



rende getallen bevatten. De getallen (met de namen TO 
en FROM) worden gebruikt in regel 840, die bekijkt, hoe 
succesvol u op een bepaalde dag geweest bent. 

Uw financiele staat wordt in regel 290 getoond, daarna 
wordt de vraag gesteld, hoeveel glazen limonade u wilt 
maken. Als u een negatief getal voorstelt, dan verwerpt 
regel 302 uw antwoord, en stuurt het programma verder 
naar regel 300, waar de vraag opnieuw gesteld wordt. 
Regel 305 stuurt de Spectrum naar de subroutine op 
regel 9000, die kijkt of u genoeg geld heeft om het aantal 
glazen limonade te maken, dat u opgegeven heeft. Als 
u meer glazen limonade wilt maken, dan waar u geld 
voor heeft, dan wordt regel 9010 uitgevoerd, deze regel 
wijst u er op, dat dit het geval is (‘U heeft niet genoeg 
geld om zoveel glazen te maken’), en er wordt om een 
nieuw aantal gevraagd. Dit aantal wordt weer in regel 
9000 gecontroleerd, en,als het ingevoerde getal accep- 
tabel is, dan wordt de RETURN op het einde van regel 
9000 uitgevoerd. Als het niet acceptabel is, dan gaat 
het programma weer verder naar regel 9010, waar de 
zelfde vraag opnieuw gesteld wordt. (Nu we hier toch 
zijn, kijk eens naar regel 9999. Deze regel werd gebruikt, 
toen het programma geschreven werd. De regel wordt 
aangeroepen, als degene, die het programma ontwik- 
kelt, besluit de listing van het prgramma te bekijken. De 
BACKGROUND, PAPER en INK-kleuren worden nor- 
maal ingesteld, daarna doet het programma een CLS 
om het scherm schoon te maken en een LIST om het 
programma uit te listen. Aan het einde van de regel ziet 
u een RETURN-opdracht, die aangeeft, dat de listing 
aangeroepen kan worden vanuit het programma als en 
subroutine. U ziet wellicht, dat het erg zinvol kan zijn 
om zo’n regel aan het einde van een programma op te 
nemen, als u een ingewikkeld probleem aan de hand 
heeft. 

Regel 307 controleert, nadat uit de subroutine is terug- 
gekeerd, of het aantal verkochte glazen limonade, klei- 
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ner is dan een. Als dit het geval is, dan neemt het pro- 
gramma aan, dat er geen limonade verkocht is die dag, 
en wordt er over het voigende gedeelte van het pro- 
gramma, dat de verkoop van limonade regelt, heenge- 
sprongen. Als u echter wel een getal, groter dan nul 
opgegeven heeft voor het aantal te verkopen glazen 
limonade, dan geeft u aan, dat u werkelijk zaken wilt 
doen, en het programma print dan op regel 310 het 
aantal glazen, dat u aangemaakt heeft. In de loop op 
regel 320 worden deze voile glazen afgedrukt. Regel 
330 vraagt om uw verkoopprijzen voor die dag, waarbij 
regel 333 prijzen verwerpt, die groter zijn dan 99, of 
kleiner zijn dan 1. Na een korte BEEP (regel 335) wordt 
de verkoopprijs afgedrukt, en u moet dan een toets in- 
drukken om het verkoopproces te starten (regel 350). 
Dan klinkt er een BEEP, en het programma wacht (met 
een PAUSE 0) totdat u een toets indrukt. Als u dit gedaan 
heeft, dan klinkt er een tweede BEEP (aan het einde 
van die regel), en regel 360 maakt het scherm schoon, 
zet de BRIGHT aan en maakt het scherm leeg met de 
l-loop. Nu komt het visueel meest interessante gedeelte 
van het programma. De lange en gecompliceerd uitzien- 
de routine (van regel 370 tot 690) maakt het eerste ge¬ 
deelte van Joe en zijn limonade-kraampje compleet met 
planken in zijn tentje met glazen limonade. Het voigende 
gedeelte, dat gebruikt maakt van de variabele COUNT 
wordt met een verminderd in regel 715, en dit proces 
van printen en verminderen van COUNT wordt herhaald, 
totdat COUNT gelijk is aan nul, de computer weet dan, 
dat alle glazen geprint zijn. Als dit gedaan is, en regel 
705 heeft vastgesteld, dat alle glazen op het scherm 
geprint zijn, zodat de klanten de glazen kunnen komen 
kopen, maken de regels 730 tot 830 het laatste gedeelte 
van het limonadekraampje af. 

Regel 840 activeert de FUNCTION, die in regel 80 is 
gedefinieerd, om te bepalen, hoe goed de transacties 
die ds a gegaan zijn. De loops vanaf regel 860 vervangen 
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voile glazen door lege glazen op de planken. Als alle 
glazen verkocht zijn, wordt het bordje ‘UITVERKOCHT’ 
opgehangen (regel 900). Na een pauze van een aantal 
seconden zakken de rolluiken naar beneden. Dan komt 
er een volgende pauze op regel 940 en dan print de 
computer het verkoop-overzicht voor die dag. ‘U heeft 
... glazen verkocht. U heeft / ... ontvangen’ .... enz. 

De belangrijke variabele PROF, die uw winst bevat, 
wordt in regel 1000 berekend. Regels 1010 tot 1030 
gebruiken de SGN-functie om vast te stellen of de dag 
in termen van winst een succes of een ramp is geweest. 
(SGN, afkorting van het Engelse SIGN (teken) geeft -1 
als het getal negatief is, +1 als het getal positief is, en 
0 als het getal 0 is.) 

In regel 1050 slaat de inflatie hard toe, waarbij uw huur 
opgeslagen wordt met / 0,10. In regel 1060 zorgt een 
random-getallen-generator er voor, dat ongeveer in een 
van de 10 keer, dat deze regel uitgevoerd wordt, de 
grondstofprijs met 1 cent verhoogd wordt (variabele- 
naam LIMONADE). Regel 1065 wacht, totdat u een 
toets heeft ingedrukt om door te gaan. Als regel 1067 
ontdekt, dat u geen geld meer heeft (als de variabele 
CASH kleiner is dan 1), dan gaat het programma naar 
regel 1500, om daar de boel netjes af te sluiten. Als u 
nog wel solvabel bent, dan krijgt u een volgende kans, 
om uw geluk te wagen in de handelsmarkt, met een 
return naar regel 200, waar u een volgende dag vol gru- 
welijke beslissingen staat te wachten. 

De betreurenswaardige boodschap ‘GESLOTEN’ ver- 
schijnt in regel 1500 en 1510, waarbij ergezegd wordt, 
dat u failliet bent, en dat uw kraampje verkocht is om 
de verliezen te dekken. Regel 1520 roept daarna zichzelf 
aan, zodat het programma beeindigd wordt, zonder de 
Report Code op het scherm te laten zien. U moet dus 
een BREAK intoetsen om uit deze regel (en het program¬ 
ma) te komen. 
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PLOT 14.8,4.8: DRAW 0,2? 
,5,-PI/6 

PLOT 187,4-8: DRRU 0,27 
2,5,PI/6 

PLOT 156,4-8: DRfiU 0,20 
PLOT 173,4-8: DRRU 0,20 
PLOT 168,48: ORRAJ ©, IS 


PLOT 162,83; DRRU 10.0,PIy2 
CIRCLE 164,32,2: CIRfcLfe 171 


INK 0; PAPER 




































HERSENBREKERS 


De Put 

In het volgende spelletje wordt een zeer realistisch en 
geloofwaardig scenario gebruikt, waarin u de hulpeloze 
gevangene bent van een wilde, krankzinnige oude man, 
die heeft besloten, dat u voor uw zonden in een put 
verdronken moet worden, als u niet in staat bent, vol- 
doende rekenkundige kennis ten toon te spreiden. 
Hier ziet u, hoe het programma de situatie uitlegt: 
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En zo ziet het programma ertijdens uw ondervraging uit: 



Het programma is recht-toe - recht-aan geschreven, 
en u kunt er dan ook zelf naar hartelust in wijzigen. De 
routine vanaf regel 1000 tekent het plaatje. Nadat het 
plaatje voor de eerste keer getekend is, vraagt het pro¬ 
gramma, hoe goed u in rekenen bent. Als u een getal 
kleiner dan 12 intoetst, dan kiest de computer een wil- 
lekeurige moeilijkheidsgraad. U kunt het beste begin- 
nen met 15, als u het programma de eerste keer ge- 
bruikt. Regel 710 zet T$ gelijk aan het vermenigvuldi- 
gingsteken (*) of het optel-teken (+), en de variabele A 
krijgt in regel 720 een waarde tussen 1 en uw moeilijk¬ 
heidsgraad. Als T$ een is, dan krijgt B in regel 735 
een waarde tussen 1 en 10. Als T$ een '+’ is, dan krijgt 
B een waarde tussen 0 en 100 maal uw moeilijkheids¬ 
graad. Regel 740 print de vraag op het scherm, waarbij 
in plaats van de een kleine '+’ geprint wordt, omdat 
een x-teken normaal gebruikt wordt voor een vermenig- 
vuldiging. De G-loop van regel 777 tot 840 geeft u de 
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mogelijkheid uw antwoord in te tikken. Let hierbij goed 
op, hoe het programma de INKEYS-functie gebruikt om 
getallen van het toetsenbord te lezen, en hoe daarna 
een getal van meer dan een cijfer gemaakt wordt. U 
kunt deze routine zelf in uw eigen programma’s opne- 
men. De professor reageert op uw antwoord (regels 850 
tot 985), en daarna wordt de volgende vraag gesteld. 
Als u naar de routine aan het einde van het programma 
kijkt, dan ziet u, dat hier de variabele I belangrijk is. Hij 
bepaalt, hoe ver de emmer in de put is getekend. Als 
de emmer aan de bovenzijde van de put komt, dan heeft 
u het overleefd, en wordt de professor met het touw 
gestraft voor zijn wandaden, zodat het programma een 
prachtige afloop krijgt. (Deze afloop ontkent trouwens 
de wetmatige relatie tussen emmers, touwen en putten). 
Als u zelf in het water terecht komt, dan valt deze gewel- 
dige afloop van het programma u ten beurt. 
























965 PAUSE 30 
970 PRINT RT 3, 
975 NEXT U 
980 LET 1-1+* 
985 GO TO 700 
990 STOP 
1000 CLS 
1005 PLOT 0,150 
1010 DRRU 0,-150 
1020 DRRU 4-0.0 
1030 DRRU 0,150 
1032 PLOT 4-0,135 
1035 PLOT 1,40: I 
1040 CIRCLE 20,1 
1050 PLOT 20,175 
1060 DRRU 1,-40, 
1065 PRINT RT 4, 

1070 PLOT 15,170 
1080 DRRU 0,-1 
1090 DRRU -4,-8 
1100 DRRU 8,0 
1110 DRRU -4,8 
1120 PLOT 11,162 
1130 DRRU 2,-8 


1170 IF l<20 THE 
1,20: GO TO 1000 
1175 IF l>122 TH 
5P 1 28: GO TO 
1180 RETURN 
3000 PRINT RT 4, 


3050 FOR a=17 TO 
2055 PRINT RT a, 
3060 PRINT RT a- 


a100 PRINT 

a 110 stop 

3000 STOP 
9000 DBTR 


9010 FOR a = 
9030 RERD b 
9030 POKE U 


904-0 NEXT a 


9050 RETURN 


PROGRAMMEERTIPS 


Verbeter uw programma’s 

‘Kunstenaars zijn altijd de eersten geweest, die nieuwe 
technieken gebruiken....’ (David Thornburg, Computer 
and Society, Computer magazine, Maart 1982, p. 16) 

Het gebruik van de personal computer heeft veel men- 
sen een uitlaatklep voor hun creativiteit gegeven. Velen 
hebben ondekt, dat het toegang hebben tot een compu¬ 
ter hun een mogelijkheid heeft gegeven voor creatieve 
activiteiten, waarbij gebruik gemaakt wordt van vaar- 
digheden, die anders verborgen zouden zijn gebleven. 
Zoals bij alle kunstvormen is het ook hierzo, dat kennis 
van de technieken het eenvoudiger kan maken, om uw 
creatieve programmeerwensen uit te drukken. Als u een 
aantal technieken en trucks ‘achter de hand’ heeft, kunt 
u makkelijk verder gaan met het ontwikkelen van het 
programma, dat u in gedachte heeft, zonder daarbij ge- 
hinderd te worden door de angst, dat u de computer 
niet kunt laten doen, wat u wilt. Bijvoorbeeld, als u weet, 
hoe u een bepaald object op uw scherm kunt laten be- 
wegen, dan kunt u zich concentreren op andere belang- 
rijke gedeelten van het programma, zonder dat u zich 
daarna nog druk hoeft te maken over het feit, of u uitein- 
delijk het probleem van de beweging nog op kunt los- 

Als u de programma’s in dit boek, en andere boeken 
goed bestudeert, dan heeft u al heel wat over program- 
meren geleerd. Als u de aantekeningen bij de program- 
malisting in dit boek leest, dan kunt u een aantal ideeen 
oppikken, die u eenvoudig in uw eigen programma’s 
kunt gebruiken. Als u nog maar net begonnen bent met 
het zelf schrijven van programma’s, dan kunt u mis- 
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schien het beste grote gedeelten van de programma’s 
in dit boek overnemen in uw eigen programma’s, waar- 
bij u dan zaken kunt veranderen zoals de user-defined 
grafische tekens of de toetsen, die door een INKEY$- 
routine gelezen worden, en dan later pas verder gaan 
met het schrijven van volledig originele programma’s 
Houd altijd de ‘menselijke’ zijde in de gaten als u een 
programma schrijft. In veel gevallen worden uw pro¬ 
gramma’s niet alleen door u zelf gebruikt, maar ook 
door andere mensen, u moet daarom proberen het ge- 
bruik van uw programma’s voor anderen zo plezierig 
en gemakkelijk mogelijk te maken. Bijvoorbeeld, veel 
programma’s, die voor de Spectrum geschreven zijn 
(waaronder enkele programma’s in dit boek) gebruiken 
de toetsen ‘5’, ‘6’, 7’ en ‘8’ voor besturing van bewegin- 
gen, waarbij een object onder besturing van de speler 
in de richting verplaatst wordt die aangegeven wordt 
door de pijlen boven die toetsen. Maar als u even na- 
denkt, dan ziet u, dat dit niet onder alle omstandigheden 
de meest ideale toetsen zijn. Ze staan dicht naast elkaar 
aan de bovenzijde van het toetsenbord, en zijn dus ze- 
ker niet eenvoudig te bedienen. Het kan daarom veel 
handiger zijn, als een programma de toetsen ‘Z’ en ‘M’ 
gebruikt voor het bewegen naar links (Z) en rechts (M). 
Andere toetsen kunnen gebruikt worden voor naar bo¬ 
ven en naar beneden bewegen. U ziet dit in een aantai 
programma’s in dit boek, zoals DEATH RACE 2000. 
Het is de moeite waard om iedere programmeerge- 
woonte die u ontwikkelt, bij het gebruik kritisch te be- 
schouwen, om te zien, of deze gewoonte ook werkelijk 
een toegeving geeft aan een zo gebruikersvriendelijk 
mogelijk programma (zoals bij het gebruik van de ‘5’ tot 
‘8’-toetsen). 

Als u andere toetsen gebruikt dan de ‘5’ tot ‘8’-toetsen, 
kies dan toetsen die ‘natuurlijk’ lijken voor de speler, 
zodat hij verder kan gaan met het spelen van het spel. 
Kies toetsen die gemakkelijk te gebruiken zijn, met po- 
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sities, die enigszins verband houden met de functie, die 
ze in het programma hebben (zoals de linkerbeneden- 
hoek van het toetsenbord -'Z — om links te bewegen). 
Voor andere besturingen in een programma, zoals het 
afvuren van uw dodelijke laser geweer, is het handig 
om een toets te kiezen, die zeer gemakkelijk te bereiken 
is, of een toets, waarvan de letter een bepaalde relatie 
heeft tot de functie in het programma, zoals ‘V’ om uw 
laser af te Vuren, of ‘R’ om een dobbelsteen te Rollen. 
U ziet dit bijvoorbeeld in De Wraak van Kasteel Angst, 
waar u de ‘O' intikt om naar het oosten te gaan, ’VL’ 
om te vluchten, en ‘VE’ om te vechten. Als u de instruk- 
ties voor zo’n spel eenmaal gelezen heeft, zult u waar- 
schijnlijk de functies van deze toetsen niet snel verge- 
ten. 

Als het mogelijk is, gebruik dan altijd zeer duidelijke 
aanwijzingen, op het moment dat de speler iets in moet 
tikken, zodat hij in iedere situatie precies weet wat er 
van hem verwacht wordt. Hoewel het niet nodig is om 
altijd uitgebreid gebruiksaanwijzingen bij en program¬ 
ma in te bouwen (deze gebruiken vaak een hoop type- 
tijd en geheugenruimte), moeten uw INPUT-opdrachten 
altijd de nodige duidelijkheid verschaffen. Het gebruik 
van bepaalde aanwijzingen voor de gebruiker, tussen 
quotes in de INPUT-opdracht op de Spectrum, maken 
het eenvoudig de gebruiker de nodige aanwijzingen te 
verstrekken. Zoals u waarschijnlijk wel weet, kunt u alle 
standaard PRINT-opdracht elementen, zoals FLASH, 
BRIGHT en INVERSE ook in de INPUT-opdracht gebrui- 

Als uw programma eenmaal loopt, moet u enige tijd 
besteden aan het zo aantrekkelijk mogelijk maken van 
de gebruikte plaatjes. Zelfs als de uitvoer van het pro¬ 
gramma uitsluitend bestaat uit PRINT-opdrachten, dan 
kunnen deze altijd nog op een aantrekkelijke, interes- 
sante en duidelijke manier op het scherm geplaatst wor- 
den. Het gebruik van kleuren in PRINT-opdrachten, of 




af en toe een verandering van de BORDER-kleur kunnen 
de boodschappen uit uw programma verduidelijken, en 
de leesbaarheid van uw programma vergroten. Wille- 
keurige veranderingen van de BORDER-kleur worden 
bijvoorbeeld gebruikt in het schaakprogramma uit dit 
boek, om aan te geven, dat de computer een stuk van 
zijn tegenstander gaat pakken. Geluiden kunnen na- 
tuurlijk ook gebruikt worden om het programma te ver- 
beteren. Het is verrassend om te zien hoe veel een klein 
aantal BEEP-opdrachten toe kunnen voegen aan de uit- 
voer van een programma, niet alien voorde hand liggen- 
de zaken, zoals het geluid van verpulverende Space 
Invaders, of voor een kaatsende bal, maar ook voor 
applicaties, zoals Beginners Schaak. In dat programma 
BEEPt de computer, terwijl hij door een bepaald stuk 
programma gaat. Dit geeft de zekerheid, dat als het erg 
lang duurt, voordat de computer een zet gevonden heeft 
en weer een teken van leven geeft, de speler in ieder 
geval weet, dat het programma niet in een eindeloze 
loop is geraakt. Het gebruik van kleur en geluid kan 
altijd de aantrekkingskracht van een programma verbe- 
teren. Hoewel er mensen zijn, die sterke argumenten 
aan kunnen voeren tegen het gebruik van kleuren, lijkt 
het onzinnig als u gebruik maakt van een computer zo¬ 
als de Spectrum - die als een van de sterke punten 
kleuren heeft - geen voordeel te trekken uit deze moge- 
lijkheden. Dit zelfde argument geldt ook voor user-defi¬ 
ned grafische tekens. U moet deze tekens gebruiken, 
als u denkt dat ze uw programma verbeteren. In ons 
schaakprogramma hebben we ze niet gebruikt, omdat 
de nadruk daar heeft gelegen op de kwaliteit van de 
speelsterkte van het programma in plaats van de uiter- 
lijke verschijning. Er is echter geen enkel excuus moge- 
lijk (behalve luiheid) om inverse sterretjes te gebruiken, 
bijvoorbeeld, om Space Invaders weer te geven, terwijl 
het ook mogelijk is om hiervoor een of meer user-defi¬ 
ned grafische tekens te gebruiken. 
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Terwijl we dus de waarde van het toevoegen van kleuren 
met de opdrachten INK en PAPER, of het gebruiken 
van FLASH, INVERSE en BRIGHT al gezien hebben, 
zijn er een aantal meer subtiele dingen die u kunt doen 
om uw programma sterker over te doen komen, zoals 
het afdrukken van bepaalde woorden in een zin in 
hoofdletters. U ziet dit in een van de aanpassingen in 
de Wraak van Kasteel Angst, waar ik alle veranderde 
woorden in HOOFDLETTERS heb afgedrukt, zodat u 
kunt zien, welke woorden u voor dit spelletje moet ver- 
anderen. 

Hoewel de woorden hier in hoofdletters geplaats zijn 
om de conversie te vereenvoudigen, en niet zozeer om 
deze woorden te benadrukken, geeft de methode wel 
weer, hoe eenvoudig en effectief dit kan zijn. De positie 
van de print-uitvoer op uw scherm kan ook van belang 
zijn, en PRINT AT maakt het eenvoudig om uw uitvoer 
overal op het scherm te plaatsen, waar het het beste 
tot zijn recht komt. 

Verhogen van de programmasnelheid 

In sommige programma’s is de kwaliteit, waarmee er 
gespeeld wordt, belangrijker dan de snelheid, waarop 
het spel zich afspeelt (zoals in PIRANDELLO en DAM- 
MEN in dit boek). Maar zelfs in dit soort programma's 
moet u toch trachten een programma te schrijven, dat 
zo snel mogelijk loopt. Snelheid is meestal een cruciale 
factor in video-spelletjes. Trage, slordig bewegende ob- 
jecten maken een spelletje al snel onbevredigend. 

In de inleiding tot sommige spelletjes in dit boek heb ik 
de aandacht al gericht op een aantal aspecten in het 
programma, die helpen bij het verhogen van de uitvoe- 
ringssnelheid. Ik dacht, dat het wel zinvol zou zijn, om 
deze (en andere) tips nog eens aan het einde van het 
boek op een rijtje te zetten. 

Als een programma een GOTO of GOSUB-opdracht te- 
genkomt, dan moet de computer het gehele programma 


201 




doorzoeken, vanaf de allereerste regel, totdat hij het 
regelnummer tegenkomt, dat in de GOTO of GOSUB 
genoemd werd. Daarom lopen programma’s waarvan 
de veel aangeroepen subroutines, aan het begin van de 
listing staan, een beetje sneller, dan andere program¬ 
ma’s. Als er een hoofd-loop is, die telkens opnieuw in 
het programma uitgevoerd wordt, dan is het vaak de 
moeite waard, om het programma zo te organiseren, 
dat deze hoofdloop ook aan het begin van de listing 
staat. U ziet dat de meeste programma’s in dit boek zo 
georganiseerd zijn. 

Naast deze indeling van de programma’s, moeten be- 
paalde delen van het programma, die slechts zeer wei- 
nig gebruikt worden (zoals instrukties voor de speler 
aan het begin van het spel, en de initialisatie van varia- 
belen en user-defined grafische tekens) aan het einde 
van het programma geplaatst worden. Het is dan niet 
nodig, dat het programma iedere keer deze code moet 
’doorworstelen’, als hij op zoek is naareen regelnummer 
voor een GOTO of een GOSUB-opdracht. U zult zien, 
dat in het algemeen geldt, dat hoe kleiner het aantal 
regels in een programma is, hoe sneller het uitgevoerd 
kan worden, die op een regel ’aan elkaargeknoopt’ zijn, 
worden iets sneller uitgevoerd, dan opdrachten, die alle 
op losse regels van telkens een opdracht staan. Dit is 
het duidelijkst merkbaar bij programma’s met bewe- 
gende grafische tekens, u moet dus proberen reeksen 
PRINT AT-opdrachten altijd met ’:’ aan elkaar te kno- 
pen. In het algemeen is de verlaging van de snelheid 
door het plaatsen van iedere opdracht op een nieuwe 
regel, of het toevoegen van vele REM-opdrachten kri- 
tisch, noch duidelijk merkbaar. Als de snelheid van het 
programma echter verhoogd moet worden, dan is het 
de moeite waard, om twee versies van een programma 
te maken. De eerste versie mag dan vol zitten met REM- 
opdrachten, en kan gebruik maken van iedere opdracht 
op een eigen regel, zodat het programma zo duidelijk 
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mogelijk is tijdens de ontwikkeling en het opsporen van 
fouten. Als u deze versie foutloos heeft, dan kunt u een 
tweede versie maken, waarin u geen REM-opdrachten 
meer heeft, en waarbij u alle opdrachten zo veel mogelijk 
op een regel plaatst. 

GOTO opdrachten kunnen vaak geheel uit het program- 
ma weggelaten worden. Bekijk iedere GOTO-opdracht, 
die niet past in een IF... THEN ... construotie zorgvul- 
dig, om te zien, of deze wellicht verwijderd kan worden. 
Sommige programmeer-puristen zeggen, dat een on- 
voorwaardelijke GOTO-opdracht altijd slecht is. Dit is 
echter geen reden om deze veel gebruikte opdracht 
nooit meer te gebruiken. U moet echter kritisch door 
uw programma’s heen gaan, en iedere onvoorwaarde- 
lijke GOTO met argwaan beschouwen. Wellicht kunt u 
dan een manier bedenken, om deGOTOte verwijderen. 
GOSUB’s kunnen ook vaak geheel weggelaten worden. 
Als er een betrekkelijk korte subroutine in een program- 
ma staat, die twee of drie maal gebruikt wordt, dan is 
het vaak beter, om de code voor die subroutine op te 
nemen op de plaatsen, waar u anders de GOSUB zou 
doen, in plaats van het uitvoeren van een tijdverslinden- 
de GOSUB en daarna een RETURN. 

Als uw programma loopt, dan kunt u vaak een listing 
van het programma maken, en deze bestuderen. U ziet 
meestal wel een aantral blokken code, die logisch bij 
elkaar horen. U zult ontdekken, dat u de meeste pro¬ 
gramma’s op deze manier kunt ’ontrafelen’, zelfs als de 
programma’s niet met een gestructureerd idee in het 
achterhoofd van de programmeur geschreven zijn. Als 
u uw programma's op deze wijze bekeken heeft, dan 
ontdekt u vaak, dat de programma’s vanuit een logisch 
standpunt bekeken niet altijd op de meest voor de hand 
liggende manier in elkaar zitten. U kunt dan proberen 
de blokken code zo te rangschikken, dat de volgorde 
’netter’ is. Deze programma’s blijken in de praktijk dan 
ook meestal sneller uitgevoerd te kunnen worden. 
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Gebruik geen haakjes, tenzij absoluut noodzakelijk. 
Haakjes gebruiken zowel geheugen- als uitvoeringstijd. 
U zult al gemerkt hebben, dat de Spectrum in het alge- 
meen met minder haakjes genoegen neemt dan vele 
andere computers. Een voorbeeld hiervan is de op- 
dracht PRINT CHR$ 134, die in de meeste andere BA¬ 
SIC’s geschreven moet worden als PRINTCHR$(134). 

U kunt wat problemen krijgen als u een programma, dat 
voor een 16K ZX81 geschreven is, in een 16K Spectrum 
te krijgen. De grafische tekens nemen op de Spectrum 
meer geheugenruimte in beslag. Als u programma’s 
converteert, laat dan alle REM-opdrachten weg, en pro¬ 
beer de PRINT-opdrachten zo veel mogelijk ’aan elkaar 
te plakken’ met behulp van Laat de gebruikersin- 
structies geheel weg. Bekijk daarna de listing om te 
zien, of deze nog op een of andere manier verkort kan 
worden, zoals het opnemen van veel-gebruikte woor- 
den of zinnen in strings, of door het opnemen van een 
subroutine voor stukken code, die verschillend malen 
vanuit het programma worden aangeroepen. Dit ver- 
traagt de uitvoering van het programma wel enigszins, 
maar dat is een klein offer, dat we moeten brengen om 
het programma van de ZX81 ook op de Spectrum te 
kunnen draaien. Zoals u waarschijnlijk wel weet, is de 
Spectrum een veel snellere computer dan de ZX81, dus 
dit offer zal waarschijnlijk geen probleem zijn. Als het 
programma op de ZX81 op een redelijke snelheid liep, 
dan kan het op de Spectrum alleen maar beter zijn. 



APPENDIX 


Gotische Generator 

Dit programma is geen spelletje, maar een zeer nuttige 
programmeerhulp, en bovendien kunt u er veel plezier 
aan beleven. Het programma geeft u de mogelijkheid 
om een, twee of zelfs alle tekens, die door de Spectrum 
geprint worden, als tekens van uw eigen keuze te laten 
afdrukken. Het programma is slechts 30 regels lang, 
maar u kunt er werkelijk zeer bijzondere effecten mee 
produceren. 

Hier is bijvoorbeeld de listing van het programma in 
gotische tekens, die gemaakt zijn door de gehele teken- 
set opnieuw de definieren: 
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Het is gemakkelijker om een heel alfabet opnieuw te 
programmeren, als u decimale invoer kunt geven, in- 
plaats van binaire invoer. Als u echt een gotisch alfabet 
wilt gebruiken, dan kunt u het volgende kleine program- 
maatje gebruiken: 


1000>FOR L 
3000 XNFLIT i a J 
3000 POKE a,p 
4000 NEXT a 


Als u het uitvoert, dan vraagt het u om een enorm aantal 
getallen, die het als invoer gebruikt. Als u de volgende 
lijst getallen intikt, na het getal, waar om gevraagd 
wordt, dan heeft u uw gehele alfabet gereprogram- 
meerd tot gotische tekens. Dit is natuurlijk ideaal als u 
volgend jaar goedkope nieuwjaarskaarten wilt sturen. 


Si400 £2 

iS4?i O 

31404 O 
31406 O 
31404 O 
31410 14 

31412 14 

31414 O 
31414 O 
34413- 36 

3142-0 O 
31422 O 

31424 O 

31426 36 

31425 36 

31430 126 

31432 O 
31434 i 

31 436 40 


31442 32 

31442 32 

31444 S 
31446 34 

31444 O 
31450 16 

31452 16 


31401 O 
31403 O 
31405 O 
31407 O 

31402 O 

31411 16 

31413 16 

31415 16 

34417 O 

31412 36 

31421 O 

31423 O 
31425 O 
31427 126 

31422 36 

31431 36 

31433 O 
31435 62 

31437 62 

31432 62 

31441 O 

31443 lOO 
31443 lOO 
31445 16 

31447 70 

31442 O 

31451 40 

31453 42 
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31945 

31947 













32133 3 

311 « 2 

32142 2 

32144 O 
32146 O 
32148 O 
32150 O 
32152 O 
32154 20 

32156 O 
32156 O 
32158 O 
32160 O 
32162 66 

32164 161 

32166 153 

32162 60 

32170 O 
32172 O 
32174 O 
32176 O 
32172 O 
32180 O 
32182 O 
32184 O 
32186 O 

32123 O 
32120 O 
32122 O 

32124 O 
32126 O 


32132 2 

32141 3 

32143 8 

32145 O 
32147 O 

32142 O 

32151 O 

32153 O 
32155 40 

32157 O 
32157 O 

32152 O 

32161 60 

32163 153 

32165 161 

32167 66 

32162 O 

32171 O 
32173 O 
32175 O 
32177 O 

32172 O 
32181 O 

32133 O 
32185 O 
32187 O 
32132 O 
32121 O 
32123 O 
32125 O 
32127 O 
32125 O 


Machine Code Renumber 

Dit iseen code-programma, dat een BASIC-programma 
opnieuw regelnummers geeft, en dat deze regelnum- 
mers ook aanpast in GOTO, GOSUB, RESTORE, LINE 
en RUN-opdrachten. Het is geschreven op adres 5CD0, 
dit is de eerste regel van een programma. Het adres 
kan veranderd worden (de te veranderen adressen zijn 
onderstreept), maar dit kan ik u niet aanbevelen, omdat 
het wel erg veel werk is, en de kans op fouten niet gering. 
Zo werkt het programma: 

1. Het programma gaat op zoek naar RUN, GOTO, GO- 


215 




SUB en RESTORE-bytes door het gehele programma, 
en let daarbij op, dat ze niet behoren tot een REM-op- 
dracht, een PRINT-opdracht, een regel-nummer, of de 
lengte van een regel. Als het einde van het programma 
gevonden wordt, dan is het opnieuw genummerd. Als 
een GOTO of een GOSUB of een van de andere bytes 
gevonden wordt, dan kijkt het programma, of er in de 
volgende 5 bytes een CHR$ voorkomt. Als dit niet het 
geval is, dan begint het programma weer vanaf het be¬ 
gin. Het programma laadt nu het nummer in van varia- 
bele A. 

2. Het programma POKEd het getal terug in het tweede 
gedeelte van het programma - nu in hexadecimaal. Als 
het de positie vindt van regelnummers na bytes zoals 
GOTO of GOSUB, en deze regelnummers zijn groter 
dan het laatst-geconverteerde regel-nummer, dan gaat 
het programma weer verder bij stap 1. Het converteert 
het regelnummer na de GOTO of GOSUB in de nieuwe 
bestemming, en dit getal wordt in een string opgeslagen 
in A$. Nu laadt het de volgende vijf bytes na de CHR$ 14. 

3. Nu schrijft het programma de string in de positie di- 
rekt volgende op de GOSUB of GOTO. Het verwijdert 
spaties, of voegt deze toe, zodat de string ’netjes' ge- 
positioneerd wordt, en tegelijkertijd worden de sys- 
teemvariabelen en de lengte van de regel aangepast. 
Dan gaat het programma weer verder met stap 1. Om 
het programma te gebruiken, moet u eerst de BASIC 
Hex-loader van de cassette laden. Als u dit programma 
uitvoert, dan tikt u de paren Hex-code in, zoals deze in 
de hierna volgende lijst gegeven wordt. De hex-lader 
accepteert ieder aantal bytes tegelijk, en de code moet 
ingetikt worden zonder spaties tussen de paren data. 
De code maakt gebruik van kleine letters, en geeft u de 
mogelijkheid om onjuist ingetikte data opnieuw op te 
geven. Aan het einde van de data stopt het programma 
met de code 9/18:1/ 
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Controleer het volgende: 


PEEK 23765 moet geven: 33 
PEEK 23891 moet geven: 11 
PEEK 23993 moet geven: 33 
PEEK 24072 moet geven: 42 

Verwijder nu alle regels uit het originele programma, 
behalve regel 1. Tik listing 2 in. Merk op dat regel 5 de 
stap-grootte en het eerste regelnummer bevat. In dit 
programma zijn deze beide op 10 gezet, maar u kunt 
deze instellen zoals u zelf wilt. Ze moeten echter beide 
4 tekens lang zijn, en daarom voorloopnullen bevatten. 
Als u deze waarde probeert te veranderen, dan moet u 
adres 23901 POKEn met het eerste regelnummer MIN 
de stapgrootte, en 23909 met de stapgrootte. Geef 
daarna RUN om een programma opnieuw te nummeren. 
U kunt het RENUMBER-programma het beste op een 
aparte cassette bewaren, en het met het programma, 
dat u in de computer heeft, MERGEn op het moment, 
dat u het nodig heeft. Listing 1 is de Hexloader, die op 
de cassette staat: 







Ifl FE 


£•3 4-E 23 

CC 34- 5D 

F4 ifi FE 

18 F7 C5 

2fl E6 50 

D5 23 23 

4.3 C-B SD 

73 Bi S3 

O1 0ft C5 

02 23 34- 

23 35 C9 


4-6 23 

ED HS 73 Bl 

0E CS CD 1C 

21- D1 53 3© 

3E 0D ED B3 

4-6 23 4-E 03 

CD BE 5D Di 

E7 0 i 04 00 

27 28 07 34. 

13 05 35 20 


lit is het renumber-programma: 

2 LET a=U3R 23765 


0/256) *25 
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Programma auteurs 


Met dank aan de volgende programmeurs, dieeen enor- 
me hulp zijn geweest bi] het samenstellen van dit boek 
met interessante spelletjes: 

LEVEL 5 - Paul Toland 
CIRCUS - Paul Toland 
JOGGER - Tim Hartnell 
MIJNEN - Paul Toland 
COPTER - Tim Rogers 
MAZURKA - Paul Toland 
ALPHABATTLE - Tim Rogers 
SMASHOUT - Ant Hurrion (verbeterd 
door Tim Hartnell) 

3-D DRIVE - Tim Rogers 
NORWAY PANIC - Tim Rogers 
DEATHRACE 2000 - Tim Hartnell en 
Tim Rogers 

CLONE CRAZY - Mike O’Neill 
PIRANDELLO - Graham Charlton (ver- 
anderd door Tim Hartnell) 

DAMMEN - Tim Hartnell 
BOTER, KAAS EN EIEREN - 
Tim Hartnell 

BEGINNERS SCHAAK - Tim Hartnell 
DE WRAAK VAN KASTEEL ANGST - 
Tim Hartnell 

JOE KAPITALIST JUNIOR - 
Paul Holmes 
DE PUT - Tim Rogers 
DE GOTISCHE GENERATOR - 
Tim Rogers 

MACHINE CODE RENUMBER - 
R. Wilkinson 
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Bibliografie 

Er zijn veel boeken, waaruit u ideeen op kunt doen om 
op de Spectrum spelletjeste schrijven. Deze lijst bevat 
enkele van de beste boeken, die ik heb kunnen vinden: 

Lezers, die meer van programmeren op de Spectrum 
willen weten, kunnen wellicht veel nuttige informatie vin¬ 
den in het zakboek Sinclair Spectrum, ook uitgebracht 
door Delfia Press. 
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Computerspellenboeken 

40 Computer Games from kilobaud microcomputing' 1 
Gibbs, E. A. en Perry, J. (eds.) (Wayne Green Inc., USA 
1980) 


The Softside* Sampler Witham, J. (ed.) (Hayden Book 
Co., Inc., USA 1982) 

BASIC Computer Games Ah I, D. (ed.) (Workman Publish¬ 
ing Co., USA 1980) 

More BASIC Computer Games Ahl, D. (ed.) (Workman 
Publishing Co., USA 1980) 

Algemene computerboeken 

The Way To PlayXhe Diagram Group (eds.) (Corgi, 1977) 

The Indoor Games Book Pennycook, A. (Faber & Faber 
Ltd., 1973) 

Games for Two Wasley, J. (Proteus Publishing Ltd., 
1981) 

Everyman’s Indoor Games Brandreth, G. (J. M. Dent & 
Sons Ltd., Everyman Paperback, 1982) 

Dice Games, New and Old Tredd, W. E. (The Oleander 
Press, Cambridge, 1981) 

Discovering Old Board Games Bell, R. C. (Shire Publica¬ 
tions Ltd., 1980) 

* Gedeponeerd handelsmerk. 
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